macro imprime

[darib52]

bonjour à tous,
j'ai la macro suivante
Sub macro2()
Sheets(Array("Rapport", "Evolution IASQCL", "Détail", "items")).Select
ActiveWindow.SelectedSheets.Application.Dialogs(xlDialogPrint).Show
Sheets("données").Select
Range("a1").Select

quand je choisis d'imprimer avec "CutePDF Printer", il m'imprime autant de fichiers .pdf que de feuilles désignées dans la macro.

auriez-vous une idée de ce que je dois modifier pour obtenir un seul fichier .pdf qui reprenne toutes les feuilles ?

merci d'avance pour votre aide.
amicalement