Function SommeCouleurFondRef(champ As Range, couleurFond As Range)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.Color = couleurFond.Interior.Color Then
If IsNumeric(c.Value) Then temp = temp + c.Value
End If
Next c
SommeCouleurFondRef = temp
End Function