Option Explicit

Sub TrierFeuilles()
    Dim NbFeuilles As Integer, j As Integer, k As Integer
    Dim f As Boolean
    NbFeuilles = ThisWorkbook.Worksheets.Count
    For j = NbFeuilles To 2 Step -1
        f = False
        For k = 1 To (j - 1)
            If Worksheets(k).Name > Worksheets(k + 1).Name Then
                Worksheets(k + 1).Move Before:=Worksheets(k)
                f = True
            End If
        Next k
        If f = False Then Exit For
    Next j
End Sub