VBA Saut de ligne Chr(10) ne fonctionne pas

Bonjour,

J'ai un petit soucis.

Cela fait des semaines que je ne parviens pas à faire fonctionner ma formule.

J'essaye de créer un mail via VBA. A chaque phrase, je souhaite inclure un saut de ligne. Mais cela ne fonctionne pas avec Chr(10).

Pourriez-vous m'aider à trouver la solution, je ne vois plus rien ?

Merci.

    Set ol = CreateObject("outlook.application")
    Set myItem = ol.CreateItem(olMailItem)
    Sheets(Z).Select
  Sheets(Z).Select
    myItem.To = Application.WorksheetFunction.VLookup(Sheets(Z).Range("B2"), Sheets("_Référentiel").Range("ManagerMail"), 2, 0) ' Mail du Manager
    myItem.cc = Application.WorksheetFunction.VLookup(Sheets(Z).Range("B2"), Sheets("_Référentiel").Range("ManagerList"), 4, 0) & _
                "; mbensattalah@sushigourmet.fr; hcaudron@hanagroup.eu; " & _
                Application.WorksheetFunction.VLookup(Sheets(Z).Range("B2"), Sheets("_Référentiel").Range("ManagerList"), 5, 0) 'Mail CDS, Responsable et Comptable
    myItem.Subject = Sheets(Z).Range("A1")
    myItem.Body = Sheets("_Mail").Range("A1") & Chr(10) & _
                  Sheets("_Mail").Range("A3") & Chr(10) & _
                  Sheets("_Mail").Range("A4") & Sheets("_Board").Range("F1") & " " & Sheets("_Board").Range("F2") & "." & Chr(10) & _
                  Sheets("_Mail").Range("A6") & Chr(10) & _
                  Sheets("_Mail").Range("A8") & Chr(10) & SigString

    Set myAttachments = myItem.Attachments

Bonjour,

As-tu testé l'utilisation de

.HTMLbody

à la place de

.body

....

En espèrant que cela t'aide ...

Bonjour,

essayer avec vbCrLf au lieu de Chr(10)

est ce que c'est mieux ?