Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim rang As Long, mysh As Object, nomcl As Long
Cancel = True
Set mysh = Sheets("Articles")
If Target.Column = 1 Then 'double click dans la 1er colonne
With Sheets("Facture")
rang = .Range("B53").End(xlUp).Row + 1
.Cells(rang, 1) = mysh.Cells(Target.Row, 13)
End With
End If
Set mysh = Nothing 'vide la variable
MsgBox "Copie effectue !"
End Sub