Renommer une feuille

[Johanna]

Bonjour,
Je voudraiS renommer chaque feuille avec le contenu de sa cellule A1.
Quelqu'un pourrait-il m'aider ?
Merci d'avance !
Johanna

 

[ChTi'160]

Salut"Johanna"
un exemple en pièce jointe
A+++
Jean Marie

 

[C@thy]

Coucou ChTi'160,

pourquoi sélectionner les feuilles? ça rallonge

Sub Macro1()
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Name = Ws.Range("A1").Value
Next Ws
End Sub

Biz

C@thy

 

[ChTi'160]

Salut"C@thy"
Bonjour le "Forum"
Merci du conseil Bonne Journée
A+++
Jean Marie

 

[Johanna]

Salut tou le monde !
Merci pour votre aide !
A +
Johanna