Function Nb_Texte_CouleurFond(plage As Range, cible As Range)
Application.Volatile
Dim r As Range, x$, coul&
Set r = Intersect(plage, plage.Parent.UsedRange)
If r Is Nothing Or CStr(cible) = "" Then Exit Function
x = LCase(CStr(cible))
coul = cible.Interior.Color
For Each r In r
If LCase(CStr(r)) = x And r.Interior.Color = coul Then Nb_Texte_CouleurFond = Nb_Texte_CouleurFond + 1
Next
End Function