Function SommeCouleur(Zone As Range, CommeCellule As Range) ' By mapomme
Dim xCell As Range, Couleur
Couleur = CommeCellule(1, 1).Interior.Color
For Each xCell In Zone
If xCell.Interior.Color = Couleur Then
SommeCouleur = SommeCouleur + 1
End If
Next xCell
End Function