Private Sub anotherTest()
Dim compteur As Integer
For x = 1 To ActiveSheet.UsedRange.Rows.Count
'pour toutes les lignes non vides de ta colonne A on vérifie la condition suivante
If Cells(x, 1).Font.ColorIndex = 4 Then compteur = compteur + 1
Next x
MsgBox "Il y a " & compteur & "cellules dont la police est verte."
'suffit de remplacer la valeur de ColorIndex par celle dont tu as besoin
End Sub