Bonjour Sylvain, le Forum
Ah, je comprends un peu mieux, mais donc ce n'est pas vraiment la même chose que ta première question.
Essaie ceci :
Sub AllSheets()
Dim WS As Worksheet
For Each WS In Sheets
With WS
.Cells(1, 1) = WS.Name
.Cells(1, 2) = Format(Now, "DD/MM/YYYY HH:MM")
End With
Next
End With
Cette macro écrira sur chaque feuille :
en A1 son nom espectif
en B1 la date et l'heure
Si çà peut t'inspirer, sinon c'est bien "For Each...... Next" comme tu pensais.
Bonne Journée (T.G.F. !!!)
@+Thierry