bonjour : oui j'avais trouvé mais j'étais un peu pressé !
merci pour l'aide
à +
Sub TrieOnglet()
Dim Cpt1 As Byte, Cpt2 As Byte, Ordre As Byte
Application.ScreenUpdating = False
Cpt1 = 1
Do
Ordre = 0
For Cpt2 = Cpt1 + 1 To Sheets.Count
If Sheets(Cpt1).Name > Sheets(Cpt2).Name Then Ordre = Cpt2
Next
If Ordre <> 0 Then Sheets(Cpt1).Move after:=Sheets(Ordre) Else Cpt1 = Cpt1 + 1
Loop While Cpt1 < Sheets.Count
Application.ScreenUpdating = True
End Sub