Réponse acceptée !
Salut
Ta réponse est dans le forum, suffit de taper 'doublon listbox' dans la case recherche !
Dans ton cas, tu ne vérifie que les doublons successifs, ce qui sous-entend que ta liste est classée (sort).
De plus, il faut savoir que, dans une boucle For-Next, la valeur finale de la boucle n'est pas recalculée à chaque cycle, donc si tu supprimes un élément du ListBox, il y aura erreur en fin de boucle --> Utilise plutôt les boucles Do While-Loop
Pour supprimer un élément, c'est "Remove x" où x est l'index de la ligne

Vala
Jack
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)

Réponse acceptée !
Bonjour
Une autre solution (toujours en supposant que la liste est triée par Sorted=True) :
commencer par la fin.

For i = recherche.listtrouvé.ListCount - 1 To 1 Step -1
    If recherche.listtrouvé.List(i) = recherche.listtrouvé.List(i - 1) Then 
               recherche.listtrouvé.RemoveItem (i)
    End If
Next i