Tri selon une couleur de cellule

Bonjour à tous,

Entre chaque "T", j'aimerais classer la cellule en bleu en tète de liste, et trier le reste en tri croissant.

Merci d'avance.

Bonjour,

la fonction "Tri" te permet de trier par couleur.

sélectionne la plage de ton tri, choisis ta fonction "Tri" et dans l'option "Trier sur", sélectionne "Couleur de police" (à la place de valeurs).

Bonsoir Game Over,

Voila le code résultant de l'enregistreur des macros :

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("A1:A5").Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add(Range("A1:A5"), _
        xlSortOnFontColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(141, _
        180, 227)
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A1:A5")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A2:A5").Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A2:A5"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A2:A5")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A7").Select
End Sub

voici un code allégé qui fera un tri semblable à celui de l'exemple.

Cordialement

Bonsoir Game Over,

Merci pour le fichier.