Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub 'si le changement a lieu ailleurs qu'en A1, sort de la procédure
If Range("A1").Value = "X" Then Range("B1").Clear 'si A1 = "X" alors la valeur dans B1 est supprimée
End Sub