Salut,
J'ai enfin réussi à écrire ma macro solveur :
PrivateSub CommandButton1_Click()
Worksheets('').Activate
SolverReset
SolverOptions
SolverOK SetCell:=Range('B24')
MaxMinVal:=1,_
ByChange:=Range('B15:B19')
SolverAdd Cellref:=Range('D24'),_
Relation:=2,_
FormulaText:=Range('D23')...