Sub additionne_si_couleur_fond()
Dim c As Range
Dim total
Range("a1:e10").Select
For Each c In Selection
If c.Interior.ColorIndex = 3 Then
totalrouge = totalrouge + 1
End If
Next c
For Each c In Selection
If c.Interior.ColorIndex = 43 Then
totalvert = totalvert + 1
End If
Next c
For Each c In Selection
If c.Interior.ColorIndex = 41 Then
totalbleu = totalbleu + 1
End If
Next c
[f1] = totalrouge
[G1] = totalvert
[H1] = totalbleu
[a3].Select
End Sub
'Si tu additionnes du texte en couleur remplace interior.colorindex par Font.Color