Insertion d'une plage de cellule dans l'envoi d'un mail

Bonjour,

Je fais appel à vous car je bloque sur un truc.
J'ai une macro qui me permet de générer un mail avec un PJ.
Jusqu'ici tout va bien, tout fonctionne.

Le hic, c'est que je n'arrive pas à lui faire insérer une plage de donnée d'un de mes onglets dans le corps du message.

Voici actuellement ma macro

Dim Outlook As Object
Dim Mail As Object
Dim Dest As String
Dim Objet As String
Dim Corps As String

Dest = "toto@toto.fr"
Objet = "toto"
Corps = ???? ICI JE VOUDRAI INSERER UNE PLAGE DE DONNEE PROVENANT D'EXCEL

Set Outlook = CreateObject("Outlook.Application")
Set Mail = Outlook.CreateItem(0)

With Mail
.to = Dest
.CC = ""
.BCC = ""
.Subject = Objet
.Body = Corps
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
'
End Sub

Si quelqu'un a une idée, je suis preneur

Merci d'avance