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