Simplification code - Boucle For each

Bonjour,

Je suis actuellement en train de faire une macro permettant d'imprimer à l'aide d'un bouton une même page mais en changeant l'intitulé d'une plage de donnée.

Ne serait-il pas possible de passer par une boucle For each ?

Le fichier étant trop lourd je n'arrive pas à l'insérer.
Actuellement mon code est le suivant :

Range("A4:J4") = "Façade"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("A4:J4") = "Sertissage, montage & mise en palette KLFP"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("A4:J4") = "Magasin accessoire"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("A4:J4") = "Maintenance"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False

Par avance merci

Actuellement mon code est le suivant :

Range("A4:J4") = "Façade"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("A4:J4") = "Sertissage, montage & mise en palette KLFP"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("A4:J4") = "Magasin accessoire"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("A4:J4") = "Maintenance"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False

Bonjour Wingelou

Regardes par ici

Merci de ton retour.

J'ai donc ecrit ça.

Sub Impression()

Dim Zone(1 To 13) As String


Zone(1) = "Façade"
Zone(2) = "Sertissage, montage & mise en palette KLFP"
Zone(3) = "Magasin accessoire"
Zone(4) = Maintenance
Zone(5) = "Métallerie/coulisse EDLV"
Zone(6) = "VEC, sertissage repa & prepa façade"
Zone(7) = "Magasins vitrage"
Zone(8) = "Sertissage, montage & mise en palette KLGT"
Zone(9) = "Nuit"
Zone(10) = "Magasin profil"
Zone(11) = "Parc"
Zone(12) = "B4, T4, montage & sertissage KLT"
Zone(13) = "Débit/Usinage"

Dim item As Variant

For Each item In Zone

Application.Goto ActiveWorkbook.Sheets("Com hebdo MTT").Range("A4:J4")
Range("A4:J4") = Zone
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False

Next
End Sub

Le boucle fonctionne MAIS la plage (A4:J4) ne se charge pas avec chaque item de la zone.