Bonjour

J'ai 40 feuilles xls auxquelles j'aimerai donner a chacune un nom inclus dans la cellule B3 de chaque feuille
j'ai essayé cette procédure itérative mais cela ne marche pas pourriez vous m'orientez?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Dim i As String
Dim ws As Sheets
For ws = 1 To 40
Do
i = activeworksheet.Name = Range("B3").Value
 
Next ws
merci d'avance