Effacement de cellule sous condition

Bonjour

Tout est a peu prés dit dans le titre

Ci joint le fichier avec explications

Merci pour votre aide

C'est bon j'ai trouvé

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, [E:E]) Is Nothing Then
If Target <> "" And Target.Offset(0, -4) <> "" Then Target.Offset(0, -4).ClearContents
End If
End Sub