Salut Reglaet,
voici, en plaçant d'office la feuille 'Menu' en première position.
J'ai "caché" un petit bouton bleu dans la feuille 'Menu' pour trier à la demande.
Ah, zut, je remarque à l'instant que, dans les déclarations de variables, sItem$ doit être effacé car inutile...
Private Sub cmdGO_Click()
'
Dim iStep1%, iStep2%, sItem$
'
iStep1 = 1
iStep2 = 1
Worksheets("Menu").Move before:=Sheets(1)
For X = iStep1 To Sheets.Count
For Y = iStep1 + 1 To Sheets.Count
If Sheets(Y).Tab.Color = Sheets(X).Tab.Color Then
iStep2 = iStep2 + 1
Sheets(Y).Move after:=Sheets(X)
End If
Next
If iStep2 > iStep1 Then
For Y = iStep1 To iStep2
For Z = iStep1 + 1 To iStep2
If Sheets(Z).Name < Sheets(Y).Name Then Sheets(Z).Move before:=Sheets(Y)
Next
Next
End If
iStep1 = iStep2 + 1
X = iStep2
iStep2 = iStep1
Next
'
End Sub
A+