Fonction avec plusieurs conditions

Bonjour,

J'utilise la fonction suivante afin de compter le nombre de cellules à fond rouge contenant le mot "DIVERS". Seulement voilà, je souhaiterais ajouter d'autres mots en plus de "DIVERS" dans la même fonction, c'est à dire je voudrais compter le nombre de cellules à fond rouge contenant le mot "DIVERS", et le mot "ASSOCIATION" et le mot "SOCIETE"...(donc écrire plusieurs If C.Value=). Mais je n'y arrive pas...

Voici la fonction que j'utilise :

Function CptTxtDivers(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
CptTxtDivers = temp
End Function

Dans ma cellule :
=CptTxtDivers(C7:C319)

Merci pour votre aide
Cordialement.