Function Nombre_de_cellules_en_couleur(Ma_Plage As Range, Couleur As Range) As Double
Dim Cel As Range
Dim Compteur As Integer
Compteur = 0
La_Couleur = Couleur.Interior.ColorIndex
For Each Cel In Ma_Plage
If CONDITION EST VRAI Then
Compteur = Compteur + 1
End If
Next Cel
Nombre_de_cellules_en_couleur = Compteur
End Function