i,j sont des entiers
j=ListeOccurrence(Liste)
POUR i=1 à J
iInitRequeteEtat(mon_etat,Liste[i]..ValeurAffichée)
iImprime(mon_etat)
iRAZ()
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=3114&post_id=13131