Comment trier les onglets d'un classeur par ordre alphabétique ?

sub TriChaqueFeuille()
 Dim X As Variant
 Dim I As Variant
 For Each X In ActiveWorkbook.Sheets
 For I = 2 To ActiveWorkbook.Sheets.Count
 If Sheets(I - 1).Name > Sheets(I).Name Then
 Sheets(I - 1).Move After:=Sheets(I)
 End If
 Next
 Next
 end sub

Attention, la feuille numérotée 10 sort avant la 2 avec un tri de ce genre. Voir les autres solutions proposées dans la même rubrique si ce paramètre est important.
Astuce illustrée par ce classeur
dm-trionglets