Macro impression

re bonsoir les gens,

je viens de me faire une macro pour l'impression de plusieurs sélection de ma feuille mais cela m'imprime toujours que la derniere sélection

voici le code

Sub imprime()

'

' imprime Macro

'

'

Range("D5:Z65,D66:Z127,D129:Z189,D192:Z203").Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1

ActiveWindow.SmallScroll Down:=18

End Sub

bonsoir,

Après modification cette formule

Sub imprime()
'
' imprime Macro
'

'
    ActiveSheet.PageSetup.PrintArea = "D5:Z65,D66:Z127,D129:Z189,D192:Z203"
ActiveWindow.SelectedSheets.PrintOut
End Sub

vous permet d'imprimer 4 pages suivant la sélection désirée

Cordialement

PloZ