Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cellule As Range
If Not Application.Intersect(Target, ActiveSheet.Range("B6:B22")) Is Nothing Then
For Each Cellule In Application.Intersect(Target, ActiveSheet.Range("B6:B22"))
If Cellule.Value <> "" Then
ActiveSheet.Range("D" & Cellule.Row & ":H" & Cellule.Row & ",J" & Cellule.Row).Value = ""
End If
Next Cellule
End If
End Sub