Mettre une sélection de cellule en pièce jointe et en corp du mail

Bonjour à tous,

J'aurais une demande à vous faire, en effet je me trouve avec un code VBA qui me permet de mettre en corp de mail une sélection de cellule et je voudrais que cette même sélection de cellule sois également en pièce jointe du même mail.

Je vous fais parvenir ci-dessous la macro :

Dim TempFilePath As String
Dim xOutApp As Object
Dim xOutMail As Object
Dim xHTMLBody As String
Dim xRg As Range
On Error Resume Next
Set xRg = Application.InputBox("Please select the data range:", "KuTools for Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
With Application
.Calculation = xlManual
.ScreenUpdating = False
.EnableEvents = False
End With
Set xOutApp = CreateObject("outlook.application")
Set xOutMail = xOutApp.CreateItem(olMailItem)
Call createJpg(ActiveSheet.Name, xRg.Address, "DashboardFile")
TempFilePath = Environ$("temp") & "\"
xHTMLBody = "<span LANG=EN>" _
& "Bonjour,<br> " _
& "<br>" _
& "Veuillez trouver ci-dessous et ci-joint le résultat " _
& "<br>" _
& "<center><img src='cid:DashboardFile.jpg'></center>" _
& "<br>" _
& "<br>Cordialement,</font></span>"
With xOutMail
.Subject = "Résultat "
.HTMLBody = xHTMLBody
.Attachments.Add TempFilePath & "DashboardFile.jpg", olByValue
.To = " "
.Cc = " "
.Display
End With
End Sub