Nommer automatiquement une feuille en fonction d'une cellule

Bonjour,

J'aimerais nommer automatiquement les feuilles de mon classeur en fonction du contenu de la cellule A3 et ceci a l'ouverture de mon fichier.

Voir le fichier joint.

Merci pour votre réponse

Bonsoir langa68,

Un essai, valider la cellule "A3".

Voir si cela te convient.

Cordialement.

Bonjour,

Une autre approche :

Private Sub Workbook_Open()
Dim Ws As Worksheet
    For Each Ws In Worksheets
        On Error Resume Next
        Ws.Name = Ws.Range("A3")
        On Error GoTo 0
    Next Ws
End Sub

A+

Merci a vous.