Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 1 Then Exit Sub
Application.ScreenUpdating = False
ligne = Target.Row
Rows(ligne).Select
Selection.Copy
Sheets(1).Select
pos = Sheets(1).Range("A65535").End(xlUp).Row + 1
Sheets(1).Cells(pos, 1).Select
ActiveSheet.Paste
Sheets(1).[A1].Select
Sheets(2).Select
[A1].Select
Rows(ligne).Select
With Selection.Font
.Color = -11489280
.TintAndShade = 0
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox ("Le transfert de la ligne a été fait")
End Sub