Function CompteCouleur(Plage As Range, Réf As Range) As Integer
Dim Cellule As Range
Application.Volatile
For Each Cellule In Plage
If Trim(Cellule) <> "" And Cellule.Interior.Color = Réf.Interior.Color Then CompteCouleur = CompteCouleur + 1
Next Cellule
End Function