Je cherche à copier une valeur sélectionnée dans une listbox et la coller par contrôle v.

Lorsque je sélectionne ma ligne dans ma listbox, si je code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Texte = ListBox2.List(ListBox2.ListIndex)
puis
Code : Sélectionner tout - Visualiser dans une fenêtre à part
MsgBox Texte
le texte sélectionné s'inscrit bien dans la MsgBox mais lorsque je fais mon contrôle v, dans une cellule Excel j'obtiens ce qui me semble être deux espaces et quand je fais mon contrôle v dans le texte de ma fenêtre de code, par exemple, j'obtiens 2 points d'interrogation.

Le code utilisé:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Texte = ListBox2.List(ListBox2.ListIndex)
 
Dim x As New DataObject
With x
    .SetText Texte
    .PutInClipboard
End With
D'où vient le problème????

Merci beaucoup pour le coup de main!!!!

BONNE ANNEE!!!!!!!!!!!!!!