Private Sub lot_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim NumCopie As String
' Nécessite la Référence à la Bibliothèque MicroSoft Forms 2.0 Object Library
If KeyAscii = 3 Then
NumCopie = lot.List(lot.ListIndex)
With New DataObject
.SetText NumCopie
.PutInClipboard
End With
End If
End Sub