<HTML>Une solution - dans cet exemple, le "feu" est un rectangle nommé "drapeau" - 1 = 100% - le numéro de couleur 11 correspond à la couleur verte.
If ActiveCell.FormulaR1C1 = "1" Then
With ActiveSheet.Shapes("Drapeau")
.Fill.ForeColor.SchemeColor = 11
End With
End If</HTML>