supprission des donner

bonjour a tous , j'ai une problématique en excel pouvez vous m'aide : j'ai plusieure feuille qui contiens des donnée ses donnée je les besoin dans une feuille analyse . ses donnée que j'ai les besoin se trouve dans la colonne E et D du feuille et dans la colonne A et B du feuille analyse .la problematique lorsque j'ajoute ou suprimer des donne les donner ajouter ou suprimer s'ajout et supprime automatiquement a la feuille analyse .j'écri la fonction ajouter a partir de se code


Private Sub Worksheet_Change(ByVal Target As Range)
Dim DrLig As Long, Lig As Long, val1, val2

If Cells(Target.Row, 4) <> "" And Cells(Target.Row, 5) <> "" Then
val1 = Cells(Target.Row, 4)
val2 = Cells(Target.Row, 5)
End If
With Sheets("Analyse")
DrLig = .Range("A" & Rows.Count).End(xlUp).Row
For Lig = 2 To DrLig
If .Cells(Lig, 1) = val2 And .Cells(Lig, 2) = val1 Then
Exit Sub
End If
Next
.Cells(DrLig + 1, 1) = val2
.Cells(DrLig + 1, 2) = val1
End With
End Sub


mais j'ai trouve une difficulté pour les supprimer .pouvez vous m'aide a le faire ? merci bien .