function [IndicesSens]=ApprocheOAT(Fonction,Parametres,Entrees,Delta)

    Val0=feval(Fonction,Parametres,Entrees);

    for i=1:length(Entrees)
       
        EntreesTestees=Entrees; EntreesTestees(i)=EntreesTestees(i)*(1-Delta);
        
        ValInf=feval(Fonction,Parametres,EntreesTestees);
        
        EntreesTestees=Entrees; EntreesTestees(i)=EntreesTestees(i)*(1+Delta);
        
        ValSup=feval(Fonction,Parametres,EntreesTestees);
        
        IndicesSens(i,1)=Entrees(i)/Val0*(ValSup-ValInf)/(2*Delta*Entrees(i));
        
    end

end