XL 2010 Sauts de ligne dans envoi mail sous VBA

Sub envoiClasseur_bis()
Dim Fichier As Variant
'le programme ouvre une fenêtre où je vais sélectionner le fichier'
Fichier = Application.GetOpenFilename("Tous les fichiers(*.*),*.*")
ici j 'utilise Outlook comme client de messagerie'
Dim MaMessagerie As Object
Dim MonMessage As Object
'Set MaMessagerie = CreateObject("Outlook.application")
'Set MonMessage = MaMessagerie.Createitem(0)
MonMessage.Display
'ici je définis les champs du mail'
'entre guillemet j'indique les adresses mail'
MonMessage.to = "staple1600@ummagumma.org"
'ici commence la rédaction du mail'
MonMessage.attachments.Add Fichier
'sujet du mail'
MonMessage.Subject = "Tableau de suivi des agents"
'Corps du mail'
contenu = "Bonjour," & vbCr & vbCr
contenu = contenu & "Veuillez trouver en pièce jointe le fichier Excel" & vbCr & vbCr
contenu = contenu & "Bien cordialement."
MsgBox contenu
MonMessage.HTMLbody = contenu
'ici je procède à l'envoi du mail et de sa pièce jointe'
MonMessage.Send
'réinitialisation de la messagerie'
Set MaMessagerie = Nothing
'Boîte de dialogue qui confirme l'envoi du mail et de sa pièce jointe'
MsgBox "Votre mail a bien été envoyé"
End Sub

Sub envoiClasseur_ter()
Dim MaMessagerie As Object, MonMessage As Object, Fichier As Variant
Fichier = Application.GetOpenFilename("Tous les fichiers(*.*),*.*")
Set MaMessagerie = CreateObject("Outlook.application")
With MaMessagerie.Createitem(0)
    .To = "staple1600@ummagumma.org"
    .Attachments.Add Fichier
    .Subject = "Tableau de suivi des agents"
    contenu = "Bonjour," & vbCr & vbCr
    contenu = contenu & "Veuillez trouver en pièce jointe le fichier Excel" & vbCr & vbCr
    contenu = contenu & "Bien cordialement."
    .HTMLbody = contenu
    .Display
    .Send
End With
Set MaMessagerie = Nothing
MsgBox "Votre mail a bien été envoyé"
End Sub