Automatisation du Solver

Bonjour à tous,

Je dois traiter pour un travail plusieurs milliers de données avec le Solver et je souhaiterais donc automatiser le processus avec une macro.

Après avoir parcouru plusieurs post traitant du sujet, je suis arriver à un code. Hors, il s'avère que ce code ne fonctionne que pour la dernière cellule de mon tableau, laissant les autres inchangées. N'ayant jamais utilisé VBA avant, je ne parviens pas à trouver l'erreur dans ma boucle.

Quelqu'un pourrait-il m'aider?

Merci d'avance,

Voici le code :

Sub solver_automatique()

Sheets("Feuil2").Select
SolverReset

For rwIndex = 1 To 10

SolverOk SetCell:=Cells(rwIndex, 4), MaxMinVal:=2, ValueOf:="0", ByChange:=Cells(rwIndex, 2)

SolverSolve =True

Next rwIndex

End Sub