Bonjour Edouard, le forum
Je ne sais pas si c'est ce que tu désires mais cette macro definit la zone d'impression en live et lance l'aperçu.
A+
Sub Zone_Imp()
' Yeahou!
ActiveSheet.PageSetup.PrintArea = Range("A5").Address & ":" & Range("AZ" & ActiveSheet.Range("A5:A154").SpecialCells(xlCellTypeConstants, 23).Rows.Count + 4).Address
ActiveWindow.SelectedSheets.PrintPreview
End Sub