I am using Evaluate in order to execute this formula :
Evaluate
x = Application.Evaluate("AdInterp(" & cells(2,"C").value & "