Faisons au plus simple alors !
Sub pdfUnique()
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Left(ThisWorkbook.Name, InStr(1, ThisWorkbook.Name, ".")) & "pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
Qu'est-ce que cela donne ?