Trier des onglets

Sub test()
Dim nomOnglet() As String, i As Integer, j As Integer, tmpStr As String
ReDim nomOnglet(1 To 1)
For i = 1 To ThisWorkbook.Sheets.Count
    ReDim Preserve nomOnglet(1 To i)
    nomOnglet(i) = ThisWorkbook.Sheets(i).Name
Next i
For i = LBound(nomOnglet) To UBound(nomOnglet)
    For j = LBound(nomOnglet) To UBound(nomOnglet) - 1
        If nomOnglet(j) > nomOnglet(j + 1) Then
            tmpStr = nomOnglet(j + 1)
            nomOnglet(j + 1) = nomOnglet(j)
            nomOnglet(j) = tmpStr
        End If
    Next j
Next i
For i = LBound(nomOnglet) To UBound(nomOnglet) - 1
    ThisWorkbook.Sheets(nomOnglet(i)).Move before:=ThisWorkbook.Sheets(i)
Next i
End Sub