Bonjour Pierre et le Forum
je répond sur ce post malgrès le nouveau que tu as passé, je comprend mieux ici (ou alors j'ai rien compris du tout !)
eaais come ceci avec tes 4 zones ensemble, mais celà imprime sur 4 feuilles
with sheets("feuil1")
If .Range("A1").value = .Range("A2") then
.PageSetup.PrintArea = "$A$10:$B$15,$E$13:$F$18,$E$24:$E$27,$A$27:$C$30"
end with
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
End Sub
Bon courage & à +
Denis