Sub TrierOnglets()
Dim Feuille
Dim Compteur As Integer
For Each Feuille In Worksheets
For Compteur = 1 To Worksheets.Count - 1
If Worksheets(Compteur).Name > Worksheets(Compteur + 1).Name Then
Worksheets(Compteur).Move After:=Worksheets(Compteur + 1)
End If
Next
Next
End Sub