Sélection et copie dans un courriel (VBA)

Bonjour,

Ma macro fonctionne parfaitement, mais j'aimerais apporté un petit quelque chose de plus. :)

J'aimerais ajouter dans le corps du message une image du tableau sélectionné qui se trouve  dans B4:G44. Seulement je ne m'y connait pas assez pour trouver le code à inscrire. Quelqu'un peu m'aider ? 

Sub Envoyer_email()
    Dim oOutlook As Object
    Set oOutlook = CreateObject("Outlook.Application")
    
    Dim oMail As Object
    Set oMail = oOutlook.CreateItem(0)
    
    With oMail
        .To = Range("D45").Value
        .Subject = "Nouvelle demande de " & ThisWorkbook.Name
        .Body = "Une nouvelle demande d'ajout de ressource est en attente d'approbation"
        .Display
    End With
End Sub

Merci à l'avance !