Boucle solveur VBA

Bonjour,

Je n'ai toujours pas trouvé de solution quand à mon problème de boucle décrit sur le lien suivant et ce malgré une adaptation de mon code:

https://forum.excel-pratique.com/excel/solveur-en-boucle-vba-t38681.html

Sub sol()

'fonction pour aller cocher le complément solveur
        AddIns("Utilitaire d'analyse").Installed = True
        AddIns("Analysis ToolPak").Installed = True
        Application.AddIns("Solver Add-In").Installed = True

'Lancement du Solveur pour le calcul de l'écart type en fonction des scénarios
    dx = "D" & Application.WorksheetFunction.CountA(Feuil1.Range("$A:$A")) & ""

    For w = 2 To TextBox_NbPoint + 1

        SolverReset

        SolverOk SetCell:=Range("G1"), MaxMinVal:=3, ValueOf:=Cells(w, 10), ByChange:=Range("D2:" & dx & "")

        SolverAdd CellRef:=Range("H3"), Relation:=2, FormulaText:=Range("G3") 'contrainte portefeuille = saisie de l'utilisateur

        SolverSolve userFinish:=True                            'ferme la fenêtre du solveur

        Cells(w, 9).Value = Range("G2").Value

    Next w

End Sub

Je vous serais extrêmement reconnaissant si vous m'aidez à trouver une solution!

Student

J'ai identifié le problème au niveau de la value of. Je ne peux donc pas mettre Cells(w,10)... il faut que je mette un chiffre

Mais comment faire pour contourner le problème de facon à identifier la valeur en j2, j3, ... LE .Value me fait pas le résultat attendu