Ok, une solution que je te propose c'est de stocker tes infos dans un tableau :
Tu parcours ta feuille, à chaque fois que tu tombes sur un nom, tu vérifies s'il existe dans ton tableau
Dim monTab ()
ReDim monTab (1)
monTab (1) = Cells(x,x).Value
i = 1
'Parcours les lignes, il y a mieux à faire pour chercher la dernière ligne du tableau mais je me rappelle pas sur le moment
While Cells(i, 1) <> ""
erreur = 0
For j = 1 To UBound(monTab , 1)
'test si la velur de la cellule existe deja dans mon tableau
If Cells(i, 1).Value = monTab (j) Then
erreur = 1
End If
Next
'si elle n'existe pas ajout
If erreur = 0 Then
tailleTab = UBound(monTab , 1)
ReDim Preserve monTab(tailleTab + 1)
monTab(tailleTab + 1) = Cells(i, 1).Value
else
'Supprimer ligne ou whatever
End If
i = i + 1
Wend
Je ne sais pas si ça peut t'aider ?
EDIT :
Je viens de me rendre compte d'une erreur : tu ne peux que redimensionner un tableau non statique (dont la taille n'a pas été déclaré)
De plus j'avais foiré ma boucle héhé