diff --git a/src/CALCULS1.PAS b/src/CALCULS1.PAS
index 3c8a1f165e3f3b6a26a307d9f4f3f761dbbc9d2b..37323cba28c33470f9fbe55a7def0103f0423bd2 100644
--- a/src/CALCULS1.PAS
+++ b/src/CALCULS1.PAS
@@ -1897,15 +1897,16 @@ Procedure
   {--absolue, due aux contraintes physiques et consignes locales ; ZQXdef2 : --}
   {--ajout‚e … ZQXdef0 du fait des volumes pr‚sents dans les r‚servoirs ;    --}
   {--ZQXdef1 : due … toutes ces causes (ZQXdef1  = ZQXdef0 + ZQXdef2)           --}
+  ZQXdef[0]:=0;
   if ZTypeObjectif=0 then
    begin
     ZQXdef[1]:=B_max(0,XQSTtmin3-ZQXsous);
-    ZQXdef[0]:=B_max(0,XQSTtmin1-ZQXsous);
+    if ZQXsous <= 0 then ZQXdef[0]:=B_max(0,XQSTtmin1-ZQXsous);
    end
   else
    begin
     ZQXdef[1]:=B_max(0,ZQXsous-XQSTtmax3);
-    ZQXdef[0]:=B_max(0,ZQXsous-XQSTtmax1);
+    if ZQXsous >= 0 then ZQXdef[0]:=B_max(0,ZQXsous-XQSTtmax1);
    end;
   ZQXdef[2]:=ZQXdef[1]-ZQXdef[0];