probleme macro imp

Bonsoir a vous

je cherche une methode en vba pour obliger une mise en page a l'impression
a savoir que j'ai plusieur zone différente qui s'imprime ou qui s'imprime pas
voir macro d'une zone JAI QUATRE ZONE PAR PAGE

pour la premiere zone

With Sheets("feuil3")
If .Range("C1").Value = .Range("E4") Then


ActiveSheet.PageSetup.PrintArea = "$F$3:$H$15"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End If
End With
End Sub

zone deux
With Sheets("feuil3")
If .Range("C1").Value = .Range("J4") Then


ActiveSheet.PageSetup.PrintArea = "$j$3:$L$15"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End If
End With
End Sub

Merci de voir aide
nat