Sub TrierFeuilles()
'Macro Dan pour alex33 le 28/11/2010
'modif Paf pour tben08 le 02/04/2015 XLD
Dim WS As Worksheet
Dim I As Byte
Dim Test As Boolean, Decal As Byte
Set WS = ActiveSheet
Decal = 13 'nombre de page à ne pas prendre en compte
Application.ScreenUpdating = False
Test = False
While Test = False
Test = True
For I = Decal + 1 To ThisWorkbook.Sheets.Count - 1
If Worksheets(I).Name > Worksheets(I + 1).Name Then
Worksheets(I).Move After:=Worksheets(I + 1)
Test = False
End If
Next
Wend
WS.Select
Application.ScreenUpdating = True
End Sub