Sub couleur()
Dim i%
For i = 1 To Range('A65536').End(xlUp).Row
Select Case Cells(i, 1).Font.ColorIndex
Case 3
rouge = rouge + Cells(i, 1).Value
Case 5
bleu = bleu + Cells(i, 1).Value
Case 10
vert = vert + Cells(i, 1).Value
End Select
Next i
MsgBox ('Le total de cellules dont le texte est rouge est : ' & rouge & Chr(13) _
& 'Le total de cellules dont le texte est bleu est: ' & bleu & Chr(13) _
& 'Le total de cellules dont le texte est vert est: ' & vert)
End Sub