Ptit Soucis avec le Solver Excel

Bonjour à toutes et tous

j'ai un petit soucis avec le solver:

Deja voila mon code:

   dep:

   SolverReset
   SolverOptions precision:=0.005
    
      ' la typo est un entier
   SolverAdd CellRef:=Range("$AJ$" & rayonini & ":$AJ$" & taille), Relation:=4
      ' la typo est superieur ou egal a 1
   SolverAdd CellRef:=Range("$AJ$" & rayonini & ":$AJ$" & taille), 
Relation:=3, FormulaText:=1
      ' le lineaire a une contrainte max
   SolverAdd CellRef:=Range("$AN$1"), Relation:=2, FormulaText:=Range("$AO$1")
      ' la typo est superieur ou egal a la typo mini
   SolverAdd CellRef:="$AJ$" & rayonini & ":$AJ$" & taille, Relation:=3, 
FormulaText:="$AG$" & rayonini & ":$AG$" & taille
      ' la typo est inferieur ou egal a la typo maxi
   SolverAdd CellRef:="$AJ$" & rayonini & ":$AJ$" & taille, Relation:=1, 
FormulaText:="$AF$" & rayonini & ":$AF$" & taille
   SolverOk SetCell:="$AM$1", MaxMinVal:=1, ByChange:="$AJ$" & rayonini & 
":$AJ$" & taille

   SolverSolve userFinish:=True

      'controle valeur lineaire
   If Range("AN1").Value > (1 + Range("AQ1").Value) * Range("AO1").Value Or 
Range("AN1").Value < (1 - Range("AQ1").Value) * Range("AO1").Value Then
       GoTo dep
   End If

Mon soucis :

Lorsque je lance la macro, le solver se renseigne bien:

Cellule cible : $AM$1
Cellules variables: $AJ$2:$AJ$127
Contraintes:
$AJ$2:$AJ$127 <= $AF$2:$AF$127
$AJ$2:$AJ$127 = entier
$AJ$2:$AJ$127 >= $AG$2:$AG$127
$AJ$2:$AJ$127 >= 1
$AN$1 = 366

mais le calcul plante car les valeur affecter ne sont pas des entiers,
malgres la contrainte????

$AJ$2:$AJ$127 = entier

Le calcul plante sur la premiere ligne en affectant la valeur 2.000002

je cherche une solution depuis pres d'une semaine
si qqun a une solution ou une explication, je suis preneur......

Merci d'avance
Laurent

Configuration: Windows Vista
Internet Explorer 7.0