XL 2019 VBA : enregistrer en PDF + Envoyer un email avec Excel ++++

Sub Facture_Scolaire_pdf()

Application.ScreenUpdating = False

'Arborescence proposée :
'   Dossier ou se trouve le fichier excel.
'1)   ==> Factures scolaire
'2)     ==> nom du fichier pdf
' Exemple : Emplacement du Fichier excel\Factures scolaire\Dupont.pdf

Dim Chemin As String                                        'Racine du fichier sur le DD du fichier excel en cours
Dim Dossier As String                                       'Nom du dossier
Dim NFichier As String                                      'Nom du fichier

Dim Var1 As String

Var1 = Range("B9")                  'Nom du clients : exemple ==> Dupont

If Var1 = Empty Then Exit Sub       'Test si il y a un client car pas de client pas de facture !!

'Construction du nom du fichier avec son emplacement en fonction d'ou se trouve le fichier excel en cours
'1)     Verification si le dossier "Factures scolaire" existe sinon creation
Dossier = "Factures scolaire"
Chemin = Application.ActiveWorkbook.Path & "\" & Dossier & "\"
If Dir(Chemin, vbDirectory) = "" Then MkDir Chemin

'2)     Création du fichier pdf
NFichier = Chemin & Var1 & ".pdf"

'Création du fichier PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NFichier, Quality _
        :=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

MsgBox "La facture de " & Var1 & " a été enregitré." & vbCrLf & vbCrLf & "Ici ==> " & Chemin & vbCrLf & vbCrLf & _
"Sous le nom : " & Var1 & ".pdf", 48, "Enregistrement facture en PDF ..."

ApercuImpression 'Visualisation avant impression

Application.ScreenUpdating = True

End Sub

Sub ApercuImpression()

Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")

End Sub