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