Sub test()
tablo = Range("I2:I" & Range("I" & Rows.Count).End(xlUp).Row)
Columns("J").Insert
Range("J1") = "ETP"
For n = LBound(tablo, 1) To UBound(tablo, 1)
tablo(n, 1) = Application.Evaluate("=" & tablo(n, 1))
Next
Range("J2").Resize(UBound(tablo, 1)) = tablo
End Sub