[COLOR=DarkSlateGray][B]Function cpte(Patron As Range, Zone As Range)
Application.Volatile
Dim oCel As Range
For Each oCel In Zone.Cells
If Patron.Value = oCel.Value And Patron.Font.Color = oCel.Font.Color Then cpte = cpte + 1
Next oCel
End Function[/B][/COLOR]