Microsoft 365 Copies de données entre feuilles

Bonjour à tous,

Je rencontre un problème dans mon classeur:

Je souhaite copier une ligne entière lorsque les cellules de la colonne J de la feuille "Suivi Attestra" contiennent les termes "OK" ou "ANNULÉ"
Lorsqu'il y a marqué "OK" la ligne entière en question est copiée dans la feuille "Suivi MELCC" puis supprimé dans la feuille "Suivi Attestra"
Lorsqu'il y a marqué "ANNULÉ" la ligne entière en question est copiée dans la feuille "Demandes annulées" puis supprimé dans la feuille "Suivi Attestra"

La copie de données fonctionne mais toutes les lignes se superposent (la copie se fait sans incrémentation) dans la feuille "Demandes annulées" alors qu'avec le statut "OK", les lignes sont copiées avec incrémentation (Les unes en dessous des autres)


Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range, DerLg As Long, DerLg2 As Long, Contenu As String



Set Plage = Range("J16:J" & Range("J" & Rows.Count).End(xlUp).Row)
DerLg = Sheets("Suivi MELCC").Range("J" & Rows.Count).End(xlUp).Row + 1
DerLg2 = Sheets("Demandes annulées").Range("J" & Rows.Count).End(xlUp).Row + 1
If Not Intersect(Target, Plage) Is Nothing And Target.Count = 1 Then
If Target.Value = "OK" Then
Target.EntireRow.Copy Destination:=Sheets("Suivi MELCC").Range("A" & DerLg)
Target.EntireRow.Delete



ElseIf Target.Value = "ANNULÉ" Then
Target.EntireRow.Copy Destination:=Sheets("Demandes annulées").Range("A" & DerLg2)
Target.EntireRow.Delete
End If


End If
End Sub