//alimente la liste
ListeSupprimeTout(LISTE_EvEnCours)
TANTQUE PAS HEnDehors()
dSdatedeb = DateVersChaîne(REQ_EvEnCours.date_debut,"JJ MMM AAAA")
ListeAjoute(LISTE_EvEnCours,"Le "+dSdatedeb+ESP+REQ_EvEnCours.Code_sinistre)
HLitSuivant()
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=3801&post_id=16055