Option Explicit
Sub test()
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Worksheets
Ws.Select
'Tu ajoutes ton code ici
Cells(1, 1).Value = "Etienne"
Next Ws
End Sub
Option Explicit
Sub test()
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Worksheets
with Ws
.Cells(1, 1) = "Marcel"
end with
Next Ws
Application.ScreenUpdating = true
End Sub
Option Explicit
Sub test()
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Worksheets
Ws.Select
Call ABC
Next Ws
End Sub
sans doute ta macro fait-elle référence systèmatiquement à la feuille active, ceci expliquerait cela...Par contre Gorfael je n' ai pas réussi avec la tienne, la macro s' éxécute mais seulement dans la première feuille de mon classeur. Merci quand même.