enregistrer feuille en pdf

Sub ExportFormatPdfSheets() 'Exporte plusieurs feuilles dans un seul PDF
 
Dim i As Long, Cpt As Long
Dim Ar() As String
 
    Cpt = 0
    For i = 1 To ThisWorkbook.Sheets.Count 
        If ThisWorkbook.Sheets(i).Name = "Pdg Vente projet client Premium" Or _
        ThisWorkbook.Sheets(i).Name = "Vente projet client Premium" Or _
        ThisWorkbook.Sheets(i).Name = "Vente projet client Premium 1" Then
            ReDim Preserve Ar(Cpt)
            Ar(Cpt) = ThisWorkbook.Sheets(i).Name
            Cpt = Cpt + 1
        'End If
    Next i
    If Cpt = 0 Then Exit Sub
 
    Application.ScreenUpdating = False
    ThisWorkbook.Sheets(Ar).Select
    'adapter le filename !!! ==> "Nom du dossier"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\" & "Nom du dossier" &"\" & ThisWorkbook.Sheets("Vente projet client Premium").Range("AK1") & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
        
    ThisWorkbook.Sheets("Feuil1").Select
    Application.ScreenUpdating = True
End Sub