effacer plusieurs cellules sous condition

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Or Target.Count > 1 Then Exit Sub
If IsEmpty(Target) Then
    Application.EnableEvents = False
    Target.Resize(, 4).ClearContents
    Application.EnableEvents = True
End If
End Sub

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Or Target.Count > 1 Or (Target.Row < 4 Or Target.Row > 44) Then Exit Sub
If IsEmpty(Target) Then
    Application.EnableEvents = False
    Target.Resize(, 4).ClearContents
    Application.EnableEvents = True
End If
End Sub