Copié / collé de lignes sélectionnées sur une autre feuille

Option Explicit
Dim cible As Long, DerLig As Long

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
DerLig = Feuil2.Range("A" & Rows.Count).End(xlUp).Row
If Target.Column = 7 Then
        cible = ActiveCell.Row
        Range(Cells(cible, 1), Cells(cible, 6)).Copy Destination:=IIf(Sheets("Feuil2").Range("A1") = "", _
        Sheets("Feuil2").Range("A" & DerLig), Sheets("Feuil2").Range("A" & DerLig + 1))
    Else
        Exit Sub
End If
    Cancel = True
End Sub