nat

je te remercie pour ton aide t super gentil

te souhaite une bonne soirée
bis
cette macro marche super reste a mettre une condition sur chaque zone
du genre
If .Range("A1").Value = .Range("B1") Then ( si a1 =A2 imprimé la zone 1 sinon non idem pour les autres zones
zone 2
( si a1 =A3 imprimé la zone 2 sinon non


Sub QuatreZones()
Sheets("Feuil3").Select
Range("B5:l33").Select
ActiveSheet.PageSetup.PrintArea = "$B$5:$l$33"
Call MacroAlignement
ActiveWindow.Zoom = 100
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Call MacroZoneTotale
Call Selection
End Sub