Solver & VBA

[benoa]

Boujour,

J'ai un problème concernant le code suivant (les erreurs sont en rouge) :

Sub RendementOpti()
Worksheets("Résultats").Activate
SolverReset
SolverOk SetCell:="$E$23", MaxMinVal:=2, ValueOf:=0, ByChange:="$D$5:$F$5", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$E$22", Relation:=2, FormulaText:="$E$26"
SolverAdd CellRef:="$F$17", Relation:=2, FormulaText:="1"
SolverOption AssumeNonNeg:=True
SolverSolve userfinish:=True
End Sub

Auriez vous des idées quant à la nature de ces erreurs.
Merci à tous pour vos suggestions