Bonjour Pierre
Une 'formule' Alain Valon B)
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
For Each sht In ActiveWorkbook.Worksheets
Sheets(sht.Name).Name = Sheets(sht.Name).[A1]
Next
End Sub
A placer dans WorkBook avec Alt F11 (VBE)
actualisera le nom de ta feuille en fonction ici de la valeur de la cellule A1
@+ GD