Retour à la ligne

Bonjours à tous

j'ai récupéré sur un site ce code qui marche bien, sauf que je n'arrive pas à faire le retour à la ligne dans le texte du mail.

Je n'ai pas de connaissance en programmation, une aide me serait utile

Merci






Private Sub BtnEnvoyerMailSav_Click()

If IsNull(Me.E_mail_non_formaté) Then

MsgBox "renseigne l' adresse email"
Me.E_mail_non_formaté.SetFocus
Exit Sub

End If

Dim Ol_App As Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_App = Outlook.Application
Set Ol_Item = Ol_App.CreateItem(olMailItem)

With Ol_Item

.Display
.To = Me.E_mail_non_formaté
.Subject = "Rapport entretien annuel"
.HTMLBody = "Texte du mail" & vbCrLf & "texte du mail 2" + .HTMLBody


'demande un accusé se réception
.ReadReceiptRequested = True

End With

Set Ol_Item = Nothing
Set Ol_App = Nothing

end sub