Intégration du solveur dans VBA

J'ai enregistré la macro suivante, c'est un solveur :

Code:

---

1 2 3 4 5 6 7 8 9

Sub Solveur_test()   SolverOk SetCell:="$C$19", MaxMinVal:=3, ValueOf:=0.4111, ByChange:="$C$18", _ Engine:=1, EngineDesc:="GRG Nonlinear" SolverOk SetCell:="$C$19", MaxMinVal:=3, ValueOf:=0.4111, ByChange:="$C$18", _ Engine:=1, EngineDesc:="GRG Nonlinear" SolverSolve   End Sub

---

Néanmoins je souhaiterais pouvoir rentrer à la place d'un nombre figé dans "ValueOf" une autre cellule. J'aimerais en clair pour mettre un ValueOf:=$D$50 par exemple. Savez-vous comment ça peut se faire svp ?

D'ailleurs je me rends compte qu'en utilisant la macro, elle ne fonctionne même pas comme ça...

Ne faut-il peut-être pas utiliser l'enregistreur de macro pour automatiser ça ?