XL 2016 Envoi d'un onglet de mon classeur excel par mail

Sub test()
'ici modifie le nom de la feuille, la plage de cellules
'l'objet du mail et l'adresse mail du destinataire
CopiePlage_Vers_Outlook Sheets(1).Range("A1:C15"), "Objet mail", "staple1600@domain.com"
End Sub

Private Sub CopiePlage_Vers_Outlook(Rng As Range, vObjet As String, Destinataire As String)
Dim olApp As Object, NewMail As Object, ChartName$, imgPath$, tmpImageName$
Dim RangeToSend As Range, sht As Worksheet, objChart As Chart
On Error GoTo err
Application.ScreenUpdating = 0: Application.DisplayAlerts = 0
Set olApp = CreateObject("Outlook.Application")
    tmpImageName = VBA.Environ$("temp") & "\tmpIMG.jpg": Set RangeToSend = Rng
    ' Copie de la plage en tant qu'image JPG
    RangeToSend.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    Set sht = Sheets.Add: sht.Shapes.AddChart
    sht.Shapes.Item(1).Select: Set objChart = ActiveChart
    With objChart
        .ChartArea.Height = RangeToSend.Height: .ChartArea.Width = RangeToSend.Width
        .ChartArea.Fill.Visible = 0: .ChartArea.Border.LineStyle = -4142
        .Paste
        .Export Filename:=tmpImageName, FilterName:="JPG"
    End With
    sht.Delete
    'Creation du mail
    Set NewMail = olApp.CreateItem(0)
    With NewMail
        .Subject = vObjet
        .To = Destinataire
        .Body = "Texte dans le corps du message"
        .Display
    End With
err:
Set olApp = Nothing: Set NewMail = Nothing: Application.DisplayAlerts = -1
End Sub 'source:2016-11-13T17:13:47+00:00(learnxl)