Somme selon couleurs des cellules

Function ColorCountIf(SearchArea As Object, BgColor As Range) [COLOR="Red"]As Double[/COLOR].
.
.

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

=SommeCouleurFondRef(B2:B28;B30)

Avec cette 2e fonction , la couleur de ref est la couleur de la cellule où la formule est écrite.

Function SommeCouleurFondRef2(champ As Range)
   Application.Volatile
   Dim couleurfond As Integer, temp As Double, c
   couleurfond = Range(Application.Caller.Address).Interior.ColorIndex
   temp = 0
   For Each c In champ
     If c.Interior.ColorIndex = couleurfond Then
        If IsNumeric(c.Value) Then temp = temp + c.Value
     End If
   Next c
   SommeCouleurFondRef2 = temp
End Function

=SommeCouleurFondRef2(B2:B28)