re,
c surement normal. le code, moi je l'ai mis dans l'évènement Workbook_SheetChange ce qui fais que dés que tu modifira la celule A6 cela changera le nom mais si le nom y été avant que tu mette le code c normal c normal car l'évènement n'a jamais été appelé.
( au passage, le mieux serais de mettre
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$6" And Target.Value <> "" Then ActiveSheet.Name = Target.Value
End Sub
car la cela le fais quelque soit la feuille donc si tu ne veux que ça le fasse que pour une feuille, met ce code dans la feuille voulut ).
sinon pour le fait que cela ne change pas quand tu ne modifie pas, tu peut rajouter :
Private Sub Workbook_Open()
If ActiveWorkbook.Sheets(1).Range("A6").Value <> "" Then ActiveWorkbook.Sheets(1).Name = ActiveWorkbook.Sheets(1).Range("A6").Value
End Sub
tjs dans le thisworkbook.