Salut Alex, salut le forum,
Voici le début d'un code qui prend en compte une plage sélectionnée :
Public Sub test()
Dim plage As Range
Dim cel As Range
Set plage = Selection
For Each cel In plage
'tes codes de mise en page
Next cel
'pour la zone d'impression, utilise "plage"
End Sub
À plus,
Robert