Microsoft 365 Nom de cellule vs nom d'onglet

[Robert du Québec]

Bonjour,
J'aimerais que le nom d'une cellule vienne s'inscrire dans l'onglet où elle est présente. En d'autre mots, si A2=Bonjour, je voudrais que l'onglet se renomme automatiquement Bonjour.
Merci.

 

[Dranreb]

Bonsoir.
Mettez ça dans le module de l'objet Worksheet représentant la feuille concernée :

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$A$2" Then Me.Name = Target.Value
   End Sub

 

[Jean-Eric]

Bonjour,
Avec une petite sécurité !?
Cdlt.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$2" Then
        Me.Name = IIf(IsEmpty(Target), Me.CodeName, Target.Value)
    End If
End Sub