Sub Image101_QuandClic()
' sélection + cacher la colonne F
Range("f1").EntireColumn.Hidden = True
' impression
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
' sélection + afficher la colonne F
Range("F1").EntireColumn.Hidden = False
End Sub