Bonjour,
Désolé, mais j'ai un peu de mal à faire le lien entre ta question et le code que tu proposes.
Dans ton code tu écris :
For Each c in Range("B12:E12") pour parcourir la plage : OK
ensuite :
ActiveCell.FormulaR1C1 ... : là tu insères la même et unique formule dans la cellule active, 4 fois la même formule dans la même cellule.
Tu devrais utiliser c. pour parcourir ta plage
c.FormulaR1C1 = ....
Pour comptabiliser toutes les cellules dont la couleur de fond est rouge :
x = 0
For Each c In Range("B12:F12")
If c.Interior.ColorIndex = 3 Then x = x + 1
Next c
MsgBox "Le nombre de cellules rouges est : " & x, vbOK, "Info"
à adapter ;o))
Bon Dimanche
Rai