Calculs en tenant compte des couleurs de fond

Bonjour,

Je souhaiterais effectuer le calcul suivant :
Additionner le montant des cellules avec un fond de couleur (jaune par exemple), avec le montant des cellules d'un autre fond de couleur (rouge par exemple) que si ces cellules à fond rouge contiennent un mot précis (mot étant sur la même ligne mais pas dans la même cellule).

Je dispose de la fonction pour additionner le contenu des cellules de fond de même couleur :

Function SommeSiCouleur(Plage As Range, NumeroDeCouleur%) As Currency
Application.Volatile True
Dim wCell As Range
For Each wCell In Plage
If wCell.Interior.ColorIndex = NumeroDeCouleur Then
SommeSiCouleur = SommeSiCouleur + wCell.Value
End If
Next
End Function

'Formule à insérer dans cellule
'=SommeSiCouleur($C$1:$C$34;3)

et Je dispose de la fonction pour calculer le nombre de cellules selon une couleur de fond avec un mot :

Function CptTxtEntraide(champ As Range)
Application.Volatile
Dim C, temp
For Each C In champ
If C.Value = "DIVERS" And C.Interior.Color = RGB(255, 0, 0) Then

temp = temp + 1
End If
Next C
CptTxtEntraide = temp
End Function

'Formule à insérer dans cellule
=CptTxtDivers(C7:C319)

Je suppose qu'il faille arriver à faire un mix des 2 pour ce que je veux faire....
Merci pour votre aide!

Cordialement