Mauvaise transcription d'un copier coller du Presse-papier depuis Excel

Bonjour,

Je suis actuellement en train de développer un petit programme, qui une fois terminé, doit copier un texte dans le presse-papier. Le fichier est utilisé par plusieurs personnes, cependant chez un certain nombre de personne, collez le contenu du presse-papier fait apparaître deux petits carrés comme si les caractères n'était pas reconnu... Je n'arrive pas à déterminer d'où vient le problème... Voici le code utilié :

Private Sub CmdMail_Click()

Dim x As New DataObject, machaine As String
Dim TypeC, Cas, Ventilation, BA, Adhésion, Cotisan, OptionG, Prestation As String

'Txtlignes renvoi à une textbox excel

TypeC = ActiveSheet.Cells(Txtlignes.Value, 1)
Cas = ActiveSheet.Cells(Txtlignes, 2)
Ventilation = ActiveSheet.Cells(Txtlignes, 5)
BA = ActiveSheet.Cells(Txtlignes, 6)
Adhésion = ActiveSheet.Cells(Txtlignes, 7)
Cotisan = ActiveSheet.Cells(Txtlignes, 8)
OptionG = ActiveSheet.Cells(Txtlignes, 9)
Prestation = ActiveSheet.Cells(Txtlignes, 10)

machaine = "Suite à l'appel de cotisation un écarts à été constaté sur l'assuré Prénom Nom n°SS." & Chr(13) & Chr(10) & "L 'écarts constaté est le suivant :" & Chr(13) & Chr(10) & "Type d'écart - " & TypeC & Chr(13) & Chr(10) & "Cas - "

'j'ai volontairement couper une partie du code pour la longueur

x.SetText machaine
x.PutInClipboard

End Sub

Edit modo : merci de mettre le code entre balises avec le bouton </>

Merci d'avance pour votre aide,

Alexis

Bonjour Alexis,

Essayez avez "VbCrLf" à la place de CHR(13) & Chr(10)

@+

Merci Beaucoup BrunoM45, je test ça sur le terrain dès que possible.