TableSupprimeTout(TABLE)
i=Min
TANTQUE i<=MAX
POUR J=0 A 7
TableAjouteLigne(Table,i,(j-1))
i++
si i>Max alors SORTIR
FIN
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=1272&post_id=5186