i,imax sont des entiers
SI HExecuteRequete(...) ALORS
    HLitPremier(req)
    imax=HNbEnr(req)
    TANTQUE PAS HEnDehors(REQ)
        i++
        Jauge(i,imax)
        ...
        HLitSuivant(req)
    FIN
    Jauge()
FIN