Sub test()
Dim plage As Range
Set plage = Range("A1", Cells(Rows.Count, 1).End(xlUp))
RestoreFormulaToText plage
End Sub
Sub RestoreFormulaToText(plage As Range)
Dim tablo,i&
tablo = plage.Value
For i = 1 To UBound(tablo)
tablo(i, 1) = plage.Cells(i, 1).Formula
Next
plage.ClearContents
plage.NumberFormat = "@"
plage.Value = tablo
End Sub