envoyer une feuille par courrier electronique

Sub Pilotage_Outlook()
Dim OutApp As Object, OutMail As Object
Dim Nom_Pdf As String, Chemin As String
Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.CreateItem(0)
With OutMail
    .To = "vv@pigeon.fr"           'A
   ' .From = "xxx.yyyy@zzzz.fr"      'De
    '.CC = "adresse mail complémentaire si besoin"
    .Subject = "Ton Objet"
    .Body = "Ton Corps de texte"
    'Spécifie le chemin de stockage des pdf
     Chemin = "C:\temp\"
    'Ajoute les fichiers en pièces jointes
      'Composition du nom du fichier PDF  'Prenom_Nom_Num_mois
       Nom_Pdf = "Tempo.pdf"
      'Création du fichier Pdf avec la méthode Export disponible depuis Excel 2007
       Worksheets("Onglet à envoyer").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Nom_Pdf _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
      'Ajoute piece jointe
      .Attachments.Add Chemin & Nom_Pdf
      'Si necessaire effacement de la piéce jointe aprés envoi
      Kill Chemin & Nom_Pdf
 
     .Display 'pour voir et modifier ou envoyer
     '.Send 'Pour envoyer directement
  End With
  MsgBox "Mail envoyé"
Set OutMail = Nothing
Set OutApp = Nothing
End Sub