Salut,
si bien compris :
Option Explicit
Sub Macro2()
Range('D2:G8').Select
' ou alors
Selection.CurrentRegion.Select
' qui sélectionne les cellules contigues de ta
feuille
ActiveSheet.PageSetup.PrintArea = '$D$2:$G$8'
' ActiveSheet.PageSetup.PrintArea = selection
End Sub