Function SommeSiCouleur(Plage As Range, CelCouleurRef As Range) As Long
Application.Volatile True
Dim wCell As Range
Dim couleur: couleur = CelCouleurRef(1, 1).Interior.ColorIndex
For Each wCell In Plage
If wCell.Interior.ColorIndex = couleur Then
SommeSiCouleur = SommeSiCouleur + wCell.Value
End If
Next
End Function