Private Sub Copier_Texte_Click()
Dim texte As String
Set mydata = New DataObject
texte = ""
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) = True Then texte = texte & ListBox2.List(i) & Chr(10)
Next
'MsgBox Texte
mydata.SetText texte
mydata.PutInClipboard
End Sub