Sub Imprimer()
Dim dc As Integer
With ActiveSheet
dc = .Cells(1, .Columns.Count).End(xlToLeft).Column
If dc > 11 Then .Columns(11).Resize(, dc - 11).Hidden = True 'masque
.PageSetup.PrintArea = .Columns(1).Resize(, dc).Address
.PageSetup.Zoom = False
.PageSetup.FitToPagesWide = 1
.PrintPreview 'pour tester
'.PrintOut 'pour imprimer
.Columns.Hidden = False 'affiche tout
End With
End Sub