la macro créer et la suivante :
Sub Macro1()
' Macro1 Macro
' Macro enregistrée le 13/11/2003 par ......
SolverOk SetCell:="$H$24", MaxMinVal:=3, ValueOf:="25",
ByChange:="$F$22"
SolverSolve
End Sub
l'erreur est signaler sur SolverOk à la 4° ligne.
Merci