Nombre de ligne après un tri par couleur

[roisabri]

Salut les amis,

Je veux bien insérer dans ma macro une commande qui peut récupérer le nombre de ligne trié par couleur.
Ci joint la macro qui fait le tri, j'ai chercher sur une commande de sorte SortFields.Count .....
pour qu'il m'affiche par exemple 5 rouge et 10 verts.

Sub SortData()
Dim x1 As Integer
Call Colors.InitColor
    'Applying sort.
    With ActiveWorkbook.Worksheets(DataName).Sort
        .SortFields.Clear
        .SortFields.Add(Range("P1:P" & Range("P" & Rows.Count).End(xlUp).row), _
             SortOn:=xlSortOnCellColor, Order:=xlAscending, DataOption:=xlSortNormal).SortOnValue.Color =red
        .SortFields.Add(Range("P1:P" & Range("P" & Rows.Count).End(xlUp).row), _
             SortOn:=xlSortOnCellColor, Order:=xlAscending, DataOption:=xlSortNormal).SortOnValue.Color = green
        .SetRange Range("A1:P100")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

J'attend vos réponses.

Merci beaucoup