Optimisation d'une fonction

Bonjour,

Voila mon problème:

Afin d'optimiser des dentures d'engrenages, je dois calculer 2 coefficients gs1 et gs2. Ces deux termes doivent être les plus proches possibles mais aussi les plus petits possibles. Or ils dépendent tous les deux de paramètres X1 et X2 et de données du tableur (alpha, beta, Z1, ...).

Je cherche à obtenir X1 et X2 sous VBExcel, sachant que l'exoression de gs1 et gs2 en fonction de X1 et X2 n'est pas immédiate:

Function TrouveX(alpha As Double, beta As Double, Z1 As Double, Z2 As Double, m As Double, r1 As Double, r2 As Double) As Double

alphat = Atn(tan(alpha) / Cos(beta))
rb1 = r1 * Cos(alphat)
alphapt = Angle(Involute(alphat) + 2 * ((X1 + X2) / (Z1 + Z2)) * tan(alpha)) ' pour denture extérieure
Delta = Cos(alphat) / Cos(alphapt)
rp1 = (m * Z1 * Delta) / 2
k = 0.5 * (Z2 + Z1) * (1 - Delta) / Cos(beta) + (X1 + X2) ' pour denture extérieure
ha1 = m * (1 + X1 - k) ' pour denture extérieure
ra1 = r1 + ha1
T1t1 = (ra1 ^ 2 - rb1 ^ 2) ^ (1 / 2)
It1 = (ra1 ^ 2 - rb1 ^ 2) ^ (1 / 2) - rp1 * Sin(alphat)
T2t1 = r2 * Sin(alphapt) - (ra1 ^ 2 - rb1 ^ 2) ^ (1 / 2) + rp1 * Sin(alphat) 'a verifier
gs1 = ((Z1 - Z2) * It1) / (Z2 * T1t1)
gs2 = ((Z1 - Z2) * It1) / (Z2 * T2t1)

Merci d'avance por votre aide, c'est assez urgent!