Suprimer ligne

Bonjour,



Voici mon code :

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim lig As Long
 Dim r As Range
 Dim dt As String
 
If Not Intersect(Target, Columns("A")) Is Nothing Then
     If Target.Count = 1 Then
         With Sheets("complété")
             lig = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
             .Cells(lig, "A").Value = Cells(Target.Row, "B").Value
             .Cells(lig, "B").Value = Cells(Target.Row, "C").Value
             .Cells(lig, "C").Value = Cells(Target.Row, "D").Value
             .Cells(lig, "D").Value = Cells(Target.Row, "E").Value
             .Cells(lig, "E").Value = Cells(Target.Row, "F").Value
             .Cells(lig, "F").Value = Cells(Target.Row, "G").Value
         End With
     End If
 End If
End Sub

Ma commande fonctionne très bien mais je voudrais en plus de copier les cellules dans ma feuille "complété" j'aimerais que ça supprime la ligne dans ma première feuille.

Je croyais utiliser ceci rows(ligne).delete avant le dernier end if mais ça ne fonctionne pas.

Merci