Macro pour séparer une feuille du classeur pour l’envoyer par email + corps d’emails

Private Sub EnvoiMailOutlookAvecFeuilJointe()
Dim OutApp As Object, OutMail As Object, NewB As Workbook
'---- variables nécessaire ------------
NomDuClasseur$ "NomDeLaPieceJointe.xls" ' avec son extention !
NomDeLaFeuille$ = "Feuil3"
AdresMail$ = "nom@site.fr"
AdresMailCC$ = "nom@site.fr"
AdresMailBCC$ = "nom@site.fr"
Sujet$ ""
Message$ = ""
'--------------------------------------

' Copie la feuille (ce qui cré un nouveau classeur qui devient actif)
CheminFichier$ = ThisWorkbook.Path & "\" & NomDuClasseur$ 'ajoute le chemin
Sheets(NomDeLaFeuille$).Copy
Set NewB = ActiveWorkbook
ActiveWorkbook.SaveAs CheminFichier$
' ENVOI
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error GoTo ErreurNET
With OutMail
 .To = AdresMail$
 .CC = AdresMailCC$
 .BCC = AdresMailBCC$
 .Subject = Sujet$
 .Body = Message$
 .Attachments.Add NewB.FullName
 .Display
End With
' close le classeur et le supprime du disque
ActiveWorkbook.Close
Kill CheminFichier$
' fin
Set OutApp = Nothing: Set OutMail = Nothing: Set NewB = Nothing
On Error GoTo 0: Err.Clear
Exit Sub
ErreurNET: ' sous prog erreur
Msg$ = "Erreur " & Err.Source & "  No " & Err.Number & vbLf & vbLf & Err.Description
T$ = "Envoi Mail: Problème de connexion !?"
MsgBox Msg$, vbCritical, T$, Err.HelpFile, Err.HelpContext
On Error GoTo 0: Err.Clear
End Sub

Private Sub EnvoiMailOutlook()
Dim OLApplication As Outlook.Application, OLMail As Outlook.MailItem
Set OLApplication = CreateObject("Outlook.Application")
Set OLMail = OLApplication.CreateItem(OLMailItem)
With OLMail
      .To = "toto@toto.fr" ' Destinataire
      .CC = "titi@titi.fr" ' Copie
      .BCC = "tutu@tutu.fr" ' Copie invisible
      .Importance = olImportanceNormal
      .Subject = "Coucou" ' Sujet
      .Body = "Bonjour chez vous" & vbCrLf & "Tata" ' Message
      .Attachments.Add "C:\Pièce à joindre.pdf" ' Pièce jointe
      .Categories = "Daily"
      .OriginatorDeliveryReportRequested = True ' Accusé de dépôt
      .ReadReceiptRequested = True ' Accusé de lecture
      'Send et Display ne doivent pas être utiliser simultanément
     '.Send '<<<<<<<<<<<< Pour envoyer directement
      .Display '<<<<<<<<< Pour voir le mail avant envoi
End With
Set OLApplication = Nothing: Set OLMail = Nothing
End Sub