Enregistrement PDF et envois mail

Option Explicit
Function ExistenceFichier(sFichier As String) As Boolean
    ExistenceFichier = Dir(sFichier) <> ""
End Function

Private Sub *PDF*_Click()
Dim Répertoire As String, _
    Fichier As String, _
    feuille As Variant, _
    Nom As Name
    
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
    End With
    
    'Si la feuille est vide on stoppe tout.
    If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub
    
    Répertoire = *Sheets("Réglages").Range("M2")* 'la destination du fichier : il est possible de mettre directement le chemin C:\fichier1\fichier2\fichierpdf\

    Fichier = *Sheets("Réglages").Range("K2")* & ".pdf" 'le nom du fichier
    With ActiveSheet
        'On vérifie que le fichier n'existe pas.
        If ExistenceFichier(Répertoire & Fichier) Then
            MsgBox " Le fichier existe déjà."
            Exit Sub
        End If
        'On crée le nouveau document au format PDF
        .ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=Répertoire & Fichier, _
            Quality:=xlQualityMinimum, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    End With
    
    Application.DisplayAlerts = True
End Sub