Oui cela aurait été plus pratique en effet.
Cela fonctionne, cependant j'ai tout de même un petit problème, la zone d'impression s'arrête à la ligne précédente, as-tu une idée du problème, j'imagine que cela est dû aux cellules fusionnées, mais comment régler cela?
Sub ZoneImpression()
With ActiveSheet.PageSetup
.PrintArea = "H24:X" & Range("H65536").End(xlUp).Row
.PrintTitleRows = "$1:$23"
.FitToPagesWide = 1
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub