Function compte_couleur(plage As Range, couleur As Variant) As Long
Application.Volatile
Dim cellule As Range, coul As Integer
If TypeName(couleur) = "Range" Then coul = couleur.Interior.ColorIndex Else coul = couleur
For Each cellule In plage
If cellule.Interior.ColorIndex = coul Then compte_couleur = compte_couleur + 1
Next
End Function