Microsoft 365 supprimer le @ en début de formule

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite une belle journée

De bon matin, j'ai déjà besoin d'aide.
J'ai fait ce petit code :

Sub Macro1()
    ActiveCell = "=IF(ISNUMBER(ActiveCell)=FALSE,"""",ActiveCell)"
    'ActiveCell.Offset(0, -1) = "=IF(ISNUMBER(ActiveCell.Offset(0, -1))=FALSE,"""",ActiveCell.Offset(0, -1))"
    [R3].Copy
    [R4:R11].Select
    ActiveSheet.Paste
    [R3].Select
    Application.CutCopyMode = False
End Sub

La formule qui s'affiche dans ma cellule est la suivante : =@SI(ESTNUM(@ActiveCell)=FAUX;"";ActiveCell)
J'essaie de faire en sorte qu'il ne mette pas ces @ intempestifs.

Je n'ai pas trouvé comment m'en débarrasser.
Auriez-vous la solution ?
Je vous remercie

Je continue à chercher,
lionel

 

[Usine à gaz]

J'arrive pas à le mettre dans la formule, l'une de mes tentatives :
ActiveSheet.Range("s3:s11") = Value = ActiveSheet.Range("s3:s11").Formula = "=IF(ISNUMBER(RC[-9])=FALSE,"""",RC[-9])"

si je fais celle-là :
ActiveSheet.Range("s3:s11").Formula = "=IF(ISNUMBER(RC[-9])=FALSE,"""",RC[-9])" = Value
il me renvoie "FAUX"