effacer contenu cellules quand changement de la valeur d'une autre cellule

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A5], Target) Is Nothing Then
    With [D5:F5]
        .ClearContents
        .ClearComments
    End With
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Byte
For i = 5 To 100 [COLOR=SeaGreen]'A adapter[/COLOR]
    If Not Intersect(Range("A" & i), Target) Is Nothing Then
    With Range("D" & i & ":F" & i)
        .ClearContents
        .ClearComments
    End With
    End If
Next i
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A5:A100")) Is Nothing Then
    Range("D" & Target.Row & ":F" & Target.Row).ClearContents
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
If Intersect(Target, Range([A5], Range("A" & Rows.Count).End(xlUp))) Is Nothing Then Exit Sub
'Si la modification ne concerne pas la colonne A, sortir
For Each Cel In Intersect(Target, Range([A5], Range("A" & Rows.Count).End(xlUp)))
    Range(Cel.Offset(0, 3), Cel.Offset(0, 5)).Clear
Next Cel
End Sub