Nommer une feuille par le contenu d'une cellule

Bonsoir,

Voici le soucis auquel je suis confronté.

Je souhaite donner comme nom à ma feuille de calcul, le contenu d'une cellule de la feuille en question.

A savoir que la feuille sera initialement créée par recopie d'une feuille de calcul existante

Merci de votre concours.

Cordialement

bonsoir,

voici une solution qui prend le nom en A1, pour la feuille sélectionnée

Sub nf()
If Range("A1") <> "" Then ActiveSheet.Name = Range("A1")
End Sub

pour le faire pour toutes les feuilles

Sub tnf()
Dim s As Worksheet
For Each s In ThisWorkbook.Worksheets
 If s.Range("A1") <> "" Then s.Name = s.Range("A1")
Next s
End Sub

Merci h2SO4,

Dans la solution que vous me proposez, je crée une macro et je la lance au cas par cas.

Existe t il un moyen de réaliser le nommage de la feuille automatiquement sans avoir à lancer une macro ?

Merci

bonsoir

essaie ceci

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
tnf
End Sub