Comment faire l'addition des valeurs des cellules qui sont sur fond rouge ?

Function SomCool(Zne As Range, Couleur As String)
 Application.Volatile True
 Select Case Couleur
  Case "rouge"
 
 Couleur = 3
  Case "vert"
   Couleur = 50
  Case "jaune"
   Couleur = 6
  Case "bleu"
   Couleur = 5
  Case "gris"
   Couleur = 15
  Case "orange"
  Couleur = 40
 End Select
 For Each cell In Zne
  If cell.Interior.ColorIndex = Couleur Then cvSomme = _
   cvSomme + cell.value
 'NB : si tu veux dénombrer seulement les cellules d'une couleur donnée, remplace
 ' cvSomme= cvSomme+ cell.value par cvSomme=cvSomme+1
 
 Next
 SomCool = cvSomme
 End Function

Pour sommer le contenu des cellules de la plage B1:B10 dont la couleur de fond est le rouge : =SomCool(B1:B10;"rouge")