Bonsoir,
En VBA, la formule est en A1 :
MsgBox Mid(Range("A1").Formula, 2, InStr(Range("A1").Formula, "!") - 2)
et avec une fonction perso :
Function NOMFEUILLE(Cel As Range) As String
Application.Volatile
NOMFEUILLE = Mid(Range("A1").Formula, 2, InStr(Range("A1").Formula, "!") - 2)
End Function
Hervé.