Données d'une variable dans le presse papier

Bonjour,

J'ai créé un tableau de gestion d'adhérents ce qu'il y a de plus simple. Seulement, après un filtre, je voudrais récupérer les adresses mails et les mettre dans le presse papier afin de faire un clic droit et coller dans les destinataires de la messagerie.

Dans ma feuille excel, j'ai mis un bouton associé à une macro. Le déroulement de la macro se passe sans problème. Les adresses sont mises correctement dans la variable mais quand je veux coller le texte récupérer dans le presse papier, j'ai des petits carrés en lieu et place des adresses mails.

Quelqu'un peut-il m'aider. Merci

Sub AdresseMail()
    Dim Mail As New DataObject
    Dim Adresse As String
    Dim i As Integer
    Worksheets("Gestion Adhérents").Activate
'Récupération des adresses
      Adresse = ""
      For i = 9 To 100
            If Range("J" & i).Value <> "" And Not Range("J" & i).Rows.Hidden Then
            Adresse = Adresse & Range("J" & i) & ";"
            End If
     Next i
'Enregistrement des adresses dans le presse papier     
          Mail.SetText Adresse
          Mail.PutInClipboard
End Sub

Cela fonctionne sur mon ordinateur portable. Pourquoi sur mon fixe cela ne fonctionne pas???

Bonsoir,

probablement un problème de configuration des codes de caractères entre qui est différent entre excel et ton porgramme de mail sur ton ordinateur fixe.