J'ai fait mon algo comme ça :

Local x,y,l,o,v1,v2
For x,1,dim(l)
l[x]->v1
For y,1, dim(l)
l[y]->l
If v1=v2 and x!=y Then
augmente(o,{v1})->o;
EndIf
EndFor

Mais du coup, ça me vire tous les doublons, il ne me reste que les valeurs toutes seules ....

Ca m'énerve, j'avais déjà codé ça mais je me souviens plus comment =/