Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim rang As Long, nomcl As Long
If MsgBox("confirmez vous le transfert de cet article", vbYesNo) = vbYes Then
Cancel = True
If Target.Column = 1 Then 'double click dans la 1er colonne
With Sheets("SAISIE")
rang = .Range("B40").End(xlUp).Row + 1
.Cells(rang, 2) = Target.Value
End With
End If
MsgBox "Article transferé !"
End If
End Sub