Sub tata()
Dim c%, i&, tmp$, feuille
Application.ScreenUpdating = False
couleurs = Array(37, 55)
With ActiveWorkbook
For c = 0 To UBound(couleurs)
ReDim noms(0)
For Each feuille In .Sheets
If feuille.Tab.ColorIndex = couleurs(c) Then ReDim Preserve noms(1 + UBound(noms)): noms(UBound(noms)) = feuille.Name
Next
For i = 1 To UBound(noms) - 1
tmp = noms(i)
For j = i + 1 To UBound(noms)
If tmp > noms(j) Then noms(i) = noms(j): noms(j) = tmp: tmp = noms(i)
Next
.Sheets(tmp).Move After:=.Sheets(Sheets.Count)
Next
.Sheets(noms(UBound(noms))).Move After:=.Sheets(Sheets.Count)
Next
End With
Application.ScreenUpdating = True
End Sub