sub macro()
for n=1 to sheets.count
Sheets(n).Range("A1")=Sheets(n).Name
next n
End sub
Dans ton cas c'est l'inversede Pierrot93:
ActiveSheet.Name = Range("A1").Value
de Mjo
=STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;32)