Bonjour,
Il faut redéfinir la zone d'impression. Je ne sais pas comment vous fixez les colonnes à imprimer mais voici une idée de la marche à suivre :
Set zonedefaut = range("A1:G40") 'zone d'impression par défaut définie dans le code
'...code permettant d'établir les colonnes à imprimer en affectant les valeurs cherchées à coldebut et colfin
Set zoneimp = intersect(zonedefaut, columns(coldebut & ":" & colfin)) 'zone d'impression redéfinie (en fonction des colonnes sélectionnées)
Worksheets("Sheet1").printout ....
Worksheets("Sheet1").PageSetup.PrintArea = zonedefaut.address 'zone par défaut rétablie
Cdlt,