Function Extremum(ByVal Equation As String, Optional ByVal X As Variant = 0, Optional ByVal Pre As Variant = 14)
'Recherche du zero de la dérivé d'une fonction
'par la methode de Newton

'Conversion
X = CDbl(X)
Pre = CDbl(Pre)

'Recherche de x pour que f(x)=0
Dim H As Double, nb As Long, X2 As Double

H = 0.00001
Do
X2 = X
nb = nb + 1 'eviter une non convergence (boucle sans fin)
X = X - Derive(Equation, X) * 2 * H / (Derive(Equation, X + H) - Derive(Equation, X - H))
Loop Until Abs(X2 - X) < 10 ^ -Pre Or nb > 50
If nb > 50 Then
    Extremum = "#NOMBRE!" 'soit divergent, soit X trop loin, soit precision insuffisante
    Else
    Extremum = X
End If

End Function