Voici une façon de faire...

Dans un module de code Standard (exemple : Module1) :

DANS UN MODULE DE CODE STANDARD
Option Explicit
Option Compare Text
 
Sub TriOnglets()
'myDearFriend! - www.mdf-xlpages.com
Dim F As Worksheet, F2 As Worksheet
    Application.ScreenUpdating = False
    For Each F In Worksheets
        For Each F2 In Worksheets
            If F2.Name < F.Name Then F2.Move Before:=F
        Next F2
    Next F
    Application.ScreenUpdating = True
End Sub