Macro : envoyer un TCD (taille variable) par mail

Bonjour tout le monde,

Je souhaite créer une macro qui génère un mail (sans l'envoyer) avec pour "objet/destinataire" des cellules défini, et en corps de texte une plage de cellule (qui peut varier) qui sera un TCD.

J'ai essayé de faire la macro ci-dessous, elle me génère bien un mail avec le bon objet/destinataire/ mais mon corps de mail est vide.

Vous avez une idée d'où ça peut venir ?

Merci,

Private Sub CommandButton1_Click()

Dim MaFeuille As Worksheet
Dim LeMail As Variant
Dim NbLigne As Integer

Set MaFeuille = ThisWorkbook.Sheets("Sheet1")
Set LeMail = CreateObject("Outlook.application") 'création d'un objet Outlook
Application.ScreenUpdating = False
NbLigne = MaFeuille.Range("A" & Application.Rows.Count).End(xlUp).Row

MaFeuille.Range("A1:F" & NbLigne).Select

With LeMail.CreateItem(olMailItem)
.Subject = Range("C8")
.To = Range("B3")
.Body = Range("A1:F" & NbLigne)
.Display
End With

End Sub