Error Solver

[glottis]

Hello people ! I created a marco with excel but I have a problem with the solver. I post the code :

Range("D3:M3").Select
Selection.Copy
Range("D2:M2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
SolverOk SetCell:="$O$5", MaxMinVal:=2, ValueOf:=0, ByChange:="$D$2:$M$2", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve True

Selection.Copy
Range("D5:M5").Select
ActiveSheet.Paste
Range("P5").Select
Selection.Copy
Range("Q5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Thank you very much !!!!!