Function Somme_Couleur(Plage As Range, CelluleCouleur As Range) As Long
Application.Volatile True
Dim c As Range
Dim i&
'---
For Each c In Plage
If WorksheetFunction.And(c.Interior.Color = CelluleCouleur.Interior.Color) Then i& = i& + 1
Next c
Somme_Couleur = i&
End Function