Appliquer une macro à tous les onglets

Hello,

J'ai une macro qui fait une mise en page précise.

J'aimerais que la macro s'exécute sur tous les onglets du classeur.

J'ai essayé en vain plusieurs codes :

Dim F_Source As Worksheet
For Each F_Source In Worksheets

   Code de mise en page

Next F_Source

ou

For Each Sheet In Worksheets

   Code de mise en page

Next Sheet

Mais rien n'y fait, il n'applique la mise en page qu'à l'onglet actif.

Quelqu'un aurait-il la solution ?

Merci et bon après-midi.

Fab

Bonjour

Une solution (pas des plus élégantes) consiste à sélectionner la page

Dim F_Source As Worksheet
For Each F_Source In Worksheets
    F_Source.Select
   Code de mise en page

Next F_Source

Banzai64 a écrit :

Bonjour

Une solution (pas des plus élégantes) consiste à sélectionner la page

Dim F_Source As Worksheet
For Each F_Source In Worksheets
    F_Source.Select
   Code de mise en page

Next F_Source

Ca fonctionne très bien.

Merci et bonne soirée.

Fab