sub VoiliVoilou()
Dim c as Range, a as double
Set c= Range("E1") ' Ou E2 ou E3 ... en fonction d'où commence ton tableau
Do while c<> ""
If c.interior.colorindex = 3 then 'Si c'est écrit en rouge
a = a + range(c.row, 3)
end if
set c=c.offset(1) ' boucle cellule d'en dessous
Loop
msgbox "Somme en rouge : " & a ' Affichage résultat
end sub