Nom onglet = valeur cellule

Bonjour à tous,

J'ai récupéré une macro qui permet de nommer un onglet en fonction de la cellule A1.

Cependant j'ai une formule dans la cellule A1 et non une valeur figée.

Pourriez-vous m'aider à modifier cette macro pour prendre en compte la valeur de le cellule, pas la formule ?

Merci.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim iSect As Range
Set iSect = Intersect(Target, [a1])
If Not iSect Is Nothing And Not IsEmpty([a1]) Then ActiveSheet.Name = [a1]
End Sub

Bonjour et bienvenue,
Joins un petit classeur pour plus de précision.
Cdlt.

Bonjour Jean-Eric, le Forum,

En PJ mon classeur.

Il contient, au départ, toutes les Feuilles nommés non-numériquement (PG1-Croq.1...).

Les Feuilles Croq.1 à Croq.10 Affichées / Masquées avec des cases à cocher.

Les Feuilles 4 à X sont importées d'une bibliothèque. A l'import, la Feuille prend automatiquement, en cellule J1, le chiffre de sa position dans le classeur (si on fait varier le nombre de cases cochées et que l'on regarde, par exemple la Feuille 4, la cellule J1 évolue en fonction de sa position).

Sur les Feuilles nommées numériquement, si on insère une Feuille entre la Feuille 7 et la Feuille 8 (ou si on déplace une Feuille) les cellules J1 sont renommées.

Toutes les Feuilles avec la cellule A1 pour renommer les Onglets.

Merci pour votre aide