Excel : Envoyer la feuille dasboard sans envoyer les feuilles de Datas

Option Explicit

Const SMTP As String = "smtp.xxxx.xx"  ' Saisir entre guillemet le smtp de son fournisseur d'accès
Const Expediteur As String = "xxxxxx@xxxx"  'adresse mail de l'expéditeur n'est pas obligatoire
Const Destinataire As String = "xxxxxx@xxxx"  'Email du destinataire doit-être correct ici
Dim chemin, nom As String
 
Sub Envoi_Feuille_Excel_FormatPDF()
        '---------------------------------------Création du fichier temporaire
    Application.DisplayAlerts = False   '-------Annulation des alertes
    
    chemin = ActiveWorkbook.Path
    nom = "Dashboard" & ".PDF"          'nom du nouveau classeur dans cellule et définir extension si différente d'application
            '---------------------Nom du fichier à envoyer extension PDF
    Sheets("Dashboard").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ActiveWorkbook.Path & "\" & nom, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
        '---------------------------------------Appel procédure d'envoi
    Call Procédure_Envoi
    Application.DisplayAlerts = True   '-------rétablissement des alertes
        '---------------------------------------Après l'envoi le fichier "Temporaire" est supprimé
  Kill chemin & "\" & nom
End Sub

Sub Procédure_Envoi()
    Dim messageHTML As Variant
    Dim objMessage As Variant
    Dim piece_jointe As Variant
        '----------------------------------------crée le fichier à envoyer
    On Error GoTo errorHandler
    Set objMessage = CreateObject("CDO.Message")
    objMessage.Subject = [B1].Value
    objMessage.From = Expediteur
    objMessage.To = Destinataire
   
        '----------------------------------------Création le corps du message avec insertion de sauts de ligne
    objMessage.TextBody = "Bonjour" & " " & "Objet: xxxxxxxxx" & "," & vbCrLf & vbCrLf _
    & "Madame, Monsieur," & "." & vbCrLf & vbCrLf _
    & "Veuillez trouvez ci-joint le xxxxxxxx" & vbCrLf _
    & "texte première ligne" & vbCrLf _
    & "texte deuxième ligne" & vbCrLf _
    & "texte troisième ligne" & vbCrLf _
    & "texte quatrième ligne" & vbCrLf _
    & "texte cinquième ligne" & vbCrLf _
    & "texte sixième ligne" & vbCrLf _
     & "Cordialement "
        '----------------------------------------Sélectionnes la pièce à joindre
    piece_jointe = ActiveWorkbook.Path & "\" & nom 'suivant variable nom
   ' piece_jointe = ActiveWorkbook.Path & "\" & "Temporaire.PDF" 'ou si le nom est fixement défini
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTP
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objMessage.Configuration.Fields.Update
    objMessage.AddAttachment (piece_jointe)
    objMessage.Send
    MsgBox "Le mail a été bien envoyé !" 'Confirmation de l'envoi
        '---------------------------------------Si erreur on sort de la procédure
Exit Sub
errorHandler:
        '---------------------------------------Description de l'erreur survenue
MsgBox Err.Description
End Sub