en VBA
ActiveCell.FormulaR1C1 = _
"=RIGHT(CELL(""nomfichier"",'onglet source'!RC),LEN(CELL(""nomfichier"",'onglet source'!RC))-FIND(""]"",CELL(""nomfichier"",'onglet source'!RC)))"
en formule
=DROITE(CELLULE("nomfichier";'onglet source'!A1);NBCAR(CELLULE("nomfichier";'onglet source'!A1))-TROUVE("]";CELLULE("nomfichier";'onglet source'!A1)))