Dim contenu
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
contenu = Target.Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Or Target.Value = contenu Then Exit Sub
Target.Interior.ColorIndex = 4
End Sub