=DROITE(CELLULE("filename";A2);NBCAR(CELLULE("filename";A2))-CHERCHE("]";CELLULE("filename";A2)))
Function NomFeui(Optional ByVal Cel As Range) As String
If Cel Is Nothing Then Set Cel = Application.Caller
NomFeui = Cel.Worksheet.Name
End Function
=NomFeui()
=STXT(nom;CHERCHE("]";nom)+1;9^9)