Option Explicit
 
Sub Tst_2007()
Dim sNomFichierPDF As String
Dim Ar() As Variant, i As Long
 
    Application.ScreenUpdating = False
 
    Ar = Array("Feuil1", "Feuil3", "Feuil5" )
 
    For i = LBound(Ar) To UBound(Ar)
        sNomFichierPDF = ThisWorkbook.Path & "\" & Ar(i) & ".pdf"
        Worksheets(Ar(i)).ExportAsFixedFormat _
                Type:=xlTypePDF, Filename:=sNomFichierPDF, Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next i
    Application.ScreenUpdating = True
End Sub