Sub Visualise()
Dim Col As String
Col = Range("BV1")
With ActiveSheet.PageSetup
.Orientation = xlLandscape 'orientation paysage
.PrintArea = Range(Cells(3, 2), Cells(22, Range(Col).Column)).Address 'zone d'impression
End With
ActiveWindow.SelectedSheets.PrintPreview 'visualise la zone d'impression, n'imprime pas directement
End Sub