Impression un seul et unique PDF

Bonjour,

Je suis débutant sur VBA et Excel de manière générale. Mon soucis est le suivant :

Je souhaiterais imprimer plusieurs page en un seul et unique PDF. Le problème étant que j'ai un total de 5 pages, réparties sur 4 feuilles

Je vais vous joindre le code en place. Pour une impression papier aucun soucis, mais forcément en sélectionnant une imprimante PDF, cela me génère 5 fichiers différents.

Sub Imprim_tout()
Sheets("Feuil1").Select
Range("B2:AK66").Select
ActiveSheet.PageSetup.PrintArea = Selection.Address
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("B2").Select
Sheets("Feuil2").Select
Range("B2:AJ58").Select
ActiveSheet.PageSetup.PrintArea = Selection.Address
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("B2").Select
Sheets("Feuil3").Select
Range("A73:S141").Select
ActiveSheet.PageSetup.PrintArea = Selection.Address
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("A73").Select
Sheets("Feuil4").Select
Range("A1:Q59").Select
Range("A1").Activate
ActiveSheet.PageSetup.PrintArea = Selection.Address
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Feuil3").Select
Range("A1:S62").Select
ActiveSheet.PageSetup.PrintArea = Selection.Address
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("AJ47").Select

End Sub

Merci d'avance pour votre aide.

Bonjour,

rassemble tes morceaux sur une feuille unique que tu supprimes après.
eric