Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim Ligne
Dim LastLine As Long
Ligne = Target.Row
Range('A' & Ligne & ':T' & Ligne).Select
Selection.Copy
Sheets('Jrnal').Select
LastLine = Range('A65536').End(xlUp).Row + 1
Range('A' & LastLine).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub