Boucle VBA entre 2 feuilles

Bonjour,

Mon souhait étant de créer une Macro afin de mettre en forme les feuilles créées par les TCD.

J'ai fait la macro suivante :

Sub Macro4()
'
Sheets("MEF").Select
Selection.Copy
Sheets("Feuil3").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.Zoom = 80

End Sub

J'aimerai que cette mise en forme s'exécute pour toutes les feuilles entre la feuille "MEF" et la feuille "Outil".

Merci d'avance

Bonjour,

Voici un essai :

Sub Macro4()

application.screenupdating = false
for each ws in worksheets
    if ws.index > sheets("MEF").index and ws.index < sheets("Outil").index then
        Sheets("MEF").cells.Copy: ws.Cells.PasteSpecial Paste:=xlPasteFormats
    end if
next ws
application.screenupdating = true

End Sub

Cdlt,

Merci beaucoup :)