XL 2010 macro et mise a jour cellule

[poipoi]

bonjour le forum
quelqu'un aurait il un bout de solution (ou même complète !!)
dans le fichier joint: je voudrais que chaque changement du contenu des cellules A1 à A3 de feuil1 entraine automatiquement le changement du nom des onglets feuil2, feuil3...
j'ai cette procédure placée dans chaque feuille

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("a1")) Is Nothing Then
Target.Parent.Name = Target.Value
End If

End Sub

mais elle ne fonctionne que si je reviens sur A1 de chaque feuille pour valider..
oui, je suis un peu brouillon dans mes explications!!
avez-vous une idée.... grand merci

 

[poipoi]

Tout fonctionne à merveille Sylvanu !!
ça y est, cette fois ci c'est bon, je ne touche plus à rien!
Bravo et encore merci

 

[sylvanu]

Content de le savoir.
Mais continuez à le toucher. Il faut appréhender la bête. Maintenance oblige.