tableau

Dim cel As Range 'déclare la variable cel (CELlule)
dim tc1 As Double 'déclare la variable tc1 (Total Couleur 1)
dim tc2 As Double 'déclare la variable tc2 (Total Couleur 2)

For Each cel in range("Ta_plage")
     if cel.Interior.ColorIndex = ta_couleur_1 then tc1 = tc1 + CDbl(cel.Value)
     if cel.Interior.ColorIndex = ta_couleur_2 then tc2 = tc2 + CDbl(cel.Value)
Next cel
Range("ou_tu_veux_1").Value = tc1 'place le total de la couleur 1
Range("ou_tu_veux_2").Value = tc2 'place le total de la couleur 2