Bonjour Tsimbina, le forum.
Avec une fonction.
Function CompteCouleur(plage As Range, CouleurReference As Range) As Integer
Application.Volatile
Dim r As Range
Dim i As Integer
For Each r In plage
If r.Interior.Color = CouleurReference.Interior.Color Then i = i + 1
Next
CompteCouleur = i
End...