Vba

Bonjour,

je voudrais envoyer un classeur par mail en vba, j'ai la formule qui va bien mais je n'arrive pas à ajouter le corps du message avec saut de ligne du style:

veuillez trouvez ci-attaché le planning...

cordialement
prénom nom
grade fonction

Voici la formule d'envoie:
Sub EnvoiFeuilCalculMail()

Dim Destinataire As String
Dim ObjetMessage As String
Dim AccuseReception As String
Dim MonClasseur As Workbook
Dim Wbk As Workbook

Set Wbk = ActiveWorkbook
SendKeys "{E}"

Dim myadress(1 To 6)

Set mylst = ActiveSheet.Range("G66:G72")
Count = 1

For Each Envoi In mylst
If Len(Envoi) Then myadress(Count) = Envoi: Count = Count + 1
Next
Wbk.SendMail Recipients:=Array(ActiveSheet.Range("G66").Value, ActiveSheet.Range("G68").Value, ActiveSheet.Range("G70").Value, ActiveSheet.Range("G72").Value), Subject:=" P1", ReturnReceipt:=True

Range("B9").Select
Wbk.Close savechanges:=True
Set Wbk = Nothing
End Sub

Si vous avez une idée. Merci de votre aide.
Dan