Sub Test_III()
Dim Z_Impression As Range
'ajout pour tester (à supprimer après le test)
Range("B1:G50") = "=ADDRESS(ROW(),COLUMN(),4)"
[Q5] = 10
' //////////// fin ////////////////////////////
Set Z_Impression = Range("B1:G" & [Q5])
ActiveSheet.PageSetup.PrintArea = Z_Impression.Address
Z_Impression.BorderAround 1, xlMedium
'aperçu avant impression
ActiveSheet.PrintPreview
End Sub