Sub Macro1()
Dim i As Integer, sh As Worksheet
For Each sh In Worksheets
sh.Name = Range("A" & i + 2).Value
i = i + 1
Next sh
End Sub
Sub Macro1()
Dim i As Integer
Dim cl As Variant
On Error Resume Next
i = 1
For Each cl In Range("A2", [A65536].End(xlUp))
Sheets(i).Name = cl.Value: i = i + 1
Next cl
On Error GoTo 0
End Sub
Salut Guy
Bonjour le fil
Bonjour le Forum
Voila ce qui aurait pu ,aussi marcher.
Code:Sub Macro1() Dim i As Integer Dim cl As Variant On Error Resume Next i = 1 For Each cl In Range("A2", [A65536].End(xlUp)) Sheets(i).Name = cl.Value: i = i + 1 Next cl On Error GoTo 0 End Sub
Bonne journée