VBA + SOLVER valeur variable

Bonjour,

J'ai effectué une macro qui marche plus ou moins:

Sub prix()

s = Application.InputBox("valeur à atteindre?", "valeur à atteindre?")


For a = 3 To 11

SolverOk SetCell:=Cells(a, 15), MaxMinVal:=3, ValueOf:=s, ByChange:=Cells(a, 3)

SolverSolve (True)
Next

End Sub

-----------------------------

si je mets par exemple des prix a virgules comme 1.5 ca marche pas

Pourriez vous voir ce qui ne va pas?

Merci de votre aide