bonjour
cette macro défini une plage d'impression. par contre ta plage doit commencer en A1.
Public Sub zoneimpression()
Dim l As Integer
Dim c As String
l = Sheets("feuil1").Range("a500").End(xlUp).Row
c = Left$(Range("A1").End(xlToRight).Address(0, 0), (Range("A1").End(xlToRight).Column < 27) + 2)
ActiveSheet.PageSetup.PrintArea = "A1:" & c & l
End Sub
salut
Hervé