Voici un des codes possibles :
Sub TriOnglet()
Application.ScreenUpdating = False
For i = 1 To Sheets.Count - 1
For j = i + 1 To Sheets.Count
If Sheets(j).Name < Sheets(i).Name Then Sheets(j).Move before:=Sheets(i)
Next j
Next i
Application.ScreenUpdating = True
End Sub
@ bientôt
LouReeD