Introduire la selection de plage dans le corp d'un message

le probleme ce trouve au niveau de la selection de ma plage ca ne fonctionne pas ma plage de selection n'es pas definit elle change chaque fois je veux envoyer la selection que je choisi

Sub Envoyer_Mail_Outlook()
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String
Dim maplage As Range
Dim Html As String

    Set ObjOutlook = New Outlook.Application
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)
'---------------------------------------------------------
    'Exemple pour envoyer un classeur en pièce jointe
    'Nom_Fichier = Application.GetOpenFilename("Fichier excel (*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm")
    'If Nom_Fichier = "Faux" Then Exit Sub
'---------------------------------------------------------
    '---------------------------------------------------------

  Set maplage = Selection

      With oBjMail

        .To = "sebastien.launay@skynet.be" ' le destinataire
        .cc = "sebastien.launay@ec.europa.eu"
        .Subject = "envoi eeas"          ' l'objet du mail
        .Body = ("bonjour " & vbCr & vbCr & vbCr & maplage)               'le corps du mail ..son contenu
        .Display

    End With

    Set oBjMail = Nothing
    Set ObjOutlook = Nothing
End Sub

Bonsoir,

si ta selection n'est pas défini dans le module comment veux tu .....

Lé mol !

je veux que ma selection soit celle que j'ai mis en surbrillance avec la souris

Re, bonsoir

Bonjour, Bonsoir, Merci

Aprés, je veux(Non) , je voudrais, ou serait-il possible

et pour finir, Merci d'avance

Là on tient déjà une bonne sélection de plage

Bonsoir.

Merci d'avoir répondu à mon message.

Mais serai un possible de répondre à ma question

Merci