VBA - Solveur = rien ne se produit ???

Bonjour,
J’ai essayé de créer une macro contenant la fonction SOLVEUR mais je ne sais pas pour quoi quand je crée un bouton et que je lui affecte la macro il ne se produit rien (voir la macro ci-dessous). Quand les données dans le solveur sont toujours inscrites, cliquer sur le bouton exécute correctement le programme, mais des que je les réinitialise rien ne se produit. Est-ce que qqn peut m’éclairer ? MERCI !!!!!!

SolverOk SetCell:=Cells(4, 11), MaxMinVal:=3, ValueOf:="2.71%", ByChange:=Range(Cells(4, 12), Cells(4, 19))
SolverAdd CellRef:=Cells(4, 20), Relation:=2, FormulaText:="1"

SolverOk SetCell:=Cells(4, 11), MaxMinVal:=3, ValueOf:="2.71%", ByChange:=Range(Cells(4, 12), Cells(4, 19))
SolverAdd CellRef:=Range(Cells(4, 12), Cells(4, 19)), Relation:=3, FormulaText:="0"

SolverOk SetCell:=Cells(4, 11), MaxMinVal:=3, ValueOf:="2.71%", ByChange:=Range(Cells(4, 12), Cells(4, 19))

SolverSolve UserFinish:=True
SolverFinish KeepFinal:=1