Hello Sylvain, Pascal, le Forum
Héhéhé Zorro est arrivé trop tard (il était à table !! lol)
Oui comme le dit Pascal très justement, ou encore, si on ne veut pas traiter le premier onglet de WorkSheet (placé à l'extrème Gauche), ce qui peut être interressant si on ne connait pas le nom de la feuille...
Sub TraiteWS1()
Dim i As Byte
For i = 2 To Worksheets.Count
With Worksheets(i)
.Range("a1") = Worksheets(i).Name
End With
Next
End Sub
On peut aussi traiter uniquement les Onglets dont le nom ne commencent pas par "Toto"
Sub TraiteWS2()
Dim WS As Worksheet
For Each WS In Sheets
If Not Left(WS.Name, 4) = "Toto" Then
With WS
.Range("a1") = Now
End With
End If
Next
End Sub
Bon Après midi, et bonne digestion
@+Thierry