Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 1 Then Exit Sub
Application.ScreenUpdating = False
Target.EntireRow.Copy
Sheets(3).Cells(Rows.Count, 1).End(3)(2).PasteSpecial xlValues
Application.CutCopyMode = False
MsgBox "Le transfert de la ligne a été fait", vbInformation, "Avertissement"
End Sub