Hum ma solution est vraiment trop lourde et inefficace^^
Voici une autre solution meilleure :

rm_d( list )
Func
  Local i, j, s, t
  1 -> j
  dim(list)-1 -> s
  list[s+1] -> t
  For i,1,s
    If list[i] != list[i+1] Then
      list[i] -> list[j]
      j+1 -> j
    EndIf
  EndFor
  t -> list[j]
  left(list, j)
EndFunc

Cette fonction enlève les doublons d'une liste triée.
L'avantage est qu'elle ne crée pas de nouvelle liste, elle travaille directement dessus.