Option Explicit
Sub Principal()
' bla bla...
Call Resolution("$Q$44")
' bla bla...
' bla bla...
Call Resolution("$Q$45")
' ETC...
' bla bla...
End Sub
Sub Resolution(AdCell As String)
SolverReset
SolverOk SetCell:="$L$39", MaxMinVal:=2, ValueOf:=0, ByChange:="$O$8:$O$12", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$O$8", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$O$9", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$O$10", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$O$11", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$O$12", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$O$13", Relation:=2, FormulaText:="1"
SolverAdd CellRef:="$L$38", Relation:=2, FormulaText:=AdCell
SolverSolve True
End Sub