definition impression

Bonjour le forum
j'ai un problème au niveau de l'impression
J'ai un code (ci_dessous) qui me permet de faire plusieurs copies (trois copies) mais il arrive parfois que si une colonne est agrandie l'impression se fait en double (donc 6 feuilles)

comment faire que même si une colonne est agrandie je sorte qu'un trois feuilles
merci a vous

'impression Z1A
Range("B1:J40").Select
ActiveSheet.PageSetup.PrintArea = "$B$1:$J$40"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("B2").Select

'impression Z1B
Range("B41:J89").Select
ActiveSheet.PageSetup.PrintArea = "$B$41:$J$89"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("B2").Select

'impression Z3
Range("B90:J149").Select
ActiveSheet.PageSetup.PrintArea = "$B$90:$J$143"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("B2").Select