tri des feuilles

bonjour,

j'ai une première macro qui me fait un trie par ordre alphabétique de mes feuilles.
Je cherche maintenant à trier suivant la couleur ,qui sont Vert, orange et rouge...,de l'onglet et par ordre alphabétique
voici la macro qui trie par ordre alphabétique:

' Macro permettant de trier les feuilles du classeur par ordre alphabétique
Sub TriNomsOnglets()
Dim i As Integer, J As Integer
For i = 1 To Sheets.Count
For J = 1 To i - 1
If UCase(Sheets(i).Name) < UCase(Sheets(J).Name) Then
Sheets(i).Move before:=Sheets(J)
Exit For
End If
Next J
Next i
End Sub



Merci d'avance