Function nbTextColor(plages As Range, text As String, myColor As Range) As Long
Dim result As Long, r As Range
'pour que la fonction se recalcule automatiquement
Application.Volatile
'boucle sur la plage
For Each r In plages
'test la présence du texte insensible à la casse
If UCase(r.Value) Like "*" & UCase(text) & "*" Then
'test la couleur
If r.Interior.ColorIndex = myColor.Interior.ColorIndex Then
'incrémente le resutat
result = result + 1
End If
End If
Next
nbTextColor = result
End Function