Bonjour,
On est d'accord qu'il suffirait de copier la formule originale dans la barre de formule, puis de venir la coller -précédée d'une apostrophe- dans une nouvelle cellule ?
Sinon, cette fonction personnalisée donne le résultat attendu (sous Excel365) :
Function maformule(src As Range)
If src.HasFormula Then maformule = src.FormulaLocal
End Function