effacer le contenu des cellules selon la condition

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 4 And Target.Value = "1" Then Target.Offset(0, 1).ClearContents
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, [D:D], Me.UsedRange)
If Not r Is Nothing Then
  For Each r In r 'si plusieurs cellules
    If r = "1" Then r(1, 2).ClearContents
  Next
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Count = 1 Then
      If Target.Column = 4 And Target.Value = "1" Then Target.Offset(0, 1).ClearContents
   End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 4 And ActiveCell.Value = "1" Then ActiveCell.Offset(0, 1).ClearContents
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 4 And Target(1).Value = "1" Then Target(1, 2)).ClearContents
End Sub