Dim strTemp as String
For i = 0 To listsource.ListCount - 1
strTemp = strTemp & listsource.List(i) & vbCrLf
Next
fin:
Clipboard.Clear 'effacer le contenu du presse papiers
Clipboard.SetText strTemp ' copie la sélection dans le presse -papiers
Lancer Word et faire un copier-coller
KIfKif