Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("A2:A10000")) Is Nothing Then
If Target.Value = "1234" Then Target.Value = ""
End If
Sortie:
Application.EnableEvents = True
End Sub
Regardez si cela convient
Cdlt