Bonjour Franck et Syephane
Une macro à placer dans le module de la feuille. Elle a l'avantage de ramener la couleur de la cellule au neutre si elle change de valeur.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [A1] = 5 Then
[A1].Interior.ColorIndex = 3
Else
[A1].Interior.ColorIndex = 0
End If
End Sub
Cordialement
Bernard