Bonjour,
Place ce code en VBA dans THISWORKBOOK
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Macro par Dan pour Clyver - xl pratique
If Not Intersect(Target, Range("B2")) Is Nothing Then Sh.Name = Target
End Sub
Dès que tu changeras la valeur en B2, ta feuille sera renommée automatiquement
Amicalement
Dan