Sub test()
Sheets(Array("Feuil1", "Feuil2", "Feuil3", "Feuil4")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="c:\temp\01Tests.pdf", _
Quality:=xlQualityMinimum, IncludeDocProperties:=True, OpenAfterPublish:=False, IgnorePrintAreas:=False
End Sub