Sub ZoneImpression()
'
Dim X As Integer, Y As Integer
With ActiveSheet
Y = .Range("A65536").End(xlUp).Row
'La boucle suivante recherche la dernière colonne remplie dans la zone A:P
For X = 1 To 16
If .Cells(Rows.Count, X).End(xlUp).Row = 1 Then
X = X - 1
Exit For
End If
Next
.PageSetup.PrintArea = Range(Cells(1, 1), Cells(Y, X)).Address
End With
End Sub