Autres (RESOLU) effacer une cellule par autre cellule

Private Sub Worksheet_Change(ByVal Target As Range) ' Efface les produits quand HW/SW change
If Not Application.Intersect(Target, Range("K4")) Is Nothing Then
    Application.EnableEvents = False
    Range("E4") = " "
End If
If Not Application.Intersect(Target, Range("E4")) Is Nothing Then
    Application.EnableEvents = False
    Range("K4") = " "
End If
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) ' Efface les produits quand HW/SW change
If Not Application.Intersect(Target, Range("e4")) Is Nothing Then
    If Target <> "" Then
    [k4] = ""
    End If
End If
If Not Application.Intersect(Target, Range("k4")) Is Nothing Then
    If Target <> "" Then
    [e4] = ""
    End If
End If
End Sub

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range) ' Efface les produits quand HW/SW change
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Value = "" Then Exit Sub
    If .Address = "$E$4" Then [K4:M4].ClearContents Else _
      If .Address = "$K$4" Then [E4:G4].ClearContents
  End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) ' Efface les produits quand HW/SW change
If Target(, 1) = Empty Then Exit Sub
Dim Rgn1, Rgn2 As Range
If Target = [E4] Then Set Rgn1 = Target: Set Rgn2 = [K4] Else Set Rgn1 = [E4]: Set Rgn2 = Target
If Rgn1 = Target Then
    Rgn2.MergeArea.ClearContents
Else
    Rgn1.MergeArea.ClearContents
End If
End Sub