Bonjour et bienvenue sur le forum
Si ta donnée est en A1, en mettant en B1 la formule suivante, tu auras ce que tu recherches :
=STXT(A1;2;NBCAR(A1-1))
Tu peux ensuite faire un copier puis collage-spécial-valeur sur la cellule A pour avoir la donnée sous forme texte.
Pour ce qui est de l'instruction en VBA, je cale...
Sauf à passer par une cellule intermédiaire comme indiqué ci-dessus, ce qui donnerait :
Sub essai()
Range("B1") = "=MID(RC[-1],2,LEN(RC[-1]-1))"
Range("B1").Copy
Range("A1").PasteSpecial Paste:=xlPasteValues
End Sub
Cela te convient-il ?
Bye !