i est un entier = ListeSelectOccurrence(LISTE_1)
j est un entier = 1
k est un entier = ListeSelect(LISTE_1)
resRech est un entier
TANTQUE j <= i
resRech=ListeCherche(LISTE_2,LISTE_1[k]..ValeurAffichée)
SI resRech = -1 ALORS
ListeAjoute(LISTE_2,LISTE_1[k]..ValeurAffichée)
FIN
j++
ListeSelectMoins(LISTE_1,k)
k = ListeSelect(LISTE_1)
FIN
ListeSelectPlus(LISTE_1,1)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=4227&post_id=17408