Suprimer ligne

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