XL 2019 Exporter un label vers outlook en gardant la mise n forme du label

Je précise que mon mon Label est exporté vers la cellule A1sans perte de mise en forme

bonsoir
fait un replace de chr(10) par un vbcrlf
de quel app mail tu te sert ?
dans le mail tu l'envoie comment le corps du message en bodytext ou en bodyhtml

Bonjour patricktoulon, le forum,
J'ai remplacé mais c'est le même résultat.
Mon appli mail est Outlook 2019.
Voici le code :
Sub TestEnvoiEmail_Variables()
'par Excel-Malin.com ( https://excel-malin.com )

'définition des variables
Dim MonSujet As String
Dim MonDestinataire As String
Dim MonContenu As String
Dim MaPieceJointe As String
Dim f As Worksheet, p As Range, NomPDF$
Set f = Feuil7
Set p = f.Range("A1") '
chemin = ThisWorkbook.Path & "\AFL23\"
NomPDF = UserForm1.ListBox2.Value & ".pdf"
p.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & NomPDF, Quality:=xlQualityStandard
MonDestinataire = Range("D" & UserForm1.ListBox2.List(UserForm1.ListBox2.ListIndex, 1)).Value
Feuil7.Range("A1").Value = "METHODOLOGIE : " & vbCrLf & UserForm1.Methodologie.Caption _
& vbCrLf & "SOCIALE : " & vbCrLf & UserForm1.Sociales.Caption
MonContenu = "Bonjour " & UserForm1.ListBox2.Value & "," & vbCrLf & "Voici en piece jointe le bilan du travail réalisé " & vbCrLf & Feuil7.Range("A1").Value

MaPieceJointe = chemin & NomPDF

'test envoi de l'email
Call EnvoyerEmail(MonSujet, MonDestinataire, MonContenu, MaPieceJointe)
End Sub

bonjour
heu je répète plus précisément puisque visiblement je n'ai pas été compris
si tu veux que l'on t'aide il nous faut tout!!!!!!!!!!!!!! le code
ou est la fonction EnvoyerEmail c'est elle qui nous interesse pas ton truc de cancat de texte

Bonjour,
désolé d'avoir tardé à répondre.
Voici le fichier.
Cordialement

Bonjour,
Est ce que c'est possible de conserver la mise en forme de mon label dans le corps de message d'Outlook.
Cordialement