Un petit tableau d'exemple simplifierai les choses, en attendant...
Si tu parles VBA, tu selectionnes tes données et tu fais une boucle du genre :
For each Cell in selection
If Cell.Interior.ColorIndex = 3 (pour le rouge) Then I = I+1
If Cell blabla pour le rien...J= J+1
If cell blabla pour le non rouge...K=K+1
MsgBox 'Nb de cellules rouges ' & I etc...