XL 2019 Mise à la ligne dans outlookd'une plage Excel

Bonjour,
Pourriez vous me dire pourquoi, avec le code suivant, le texte ne se met pas à la ligne dans outlook?

MonDestinataire = "Carlos@gmail" 'Individuelle.Controls("Textbox" & 7).Value
MonContenu = Feuil6.Range("A1").Value & Chr(10) & Feuil6.Range("A3").Value
MaPieceJointe = Chemin & NomPDF
Call EnvoyerEmail(MonSujet, MonDestinataire, MonContenu, MaPieceJointe)
Bonne soirée