Sub Macro2()
'
' Macro2 Macro
'
' DEBUT BLOC1
ActiveSheet.PageSetup.PrintArea = "A2:c32"
With ActiveSheet.PageSetup
.CenterHeader = Range("C3").Value
Print
End With
' FIN BLOC1
' DEBUT BLOC2
ActiveSheet.PageSetup.PrintArea = "d2:f32"
With ActiveSheet.PageSetup
.CenterHeader = Range("f3").Value
Print
End With
' FIN BLOC2
' DEBUT BLOC3
ActiveSheet.PageSetup.PrintArea = "g2:i32"
With ActiveSheet.PageSetup
.CenterHeader = Range("i3").Value
Print
End With
' FIN BLOC3
End Sub