Sub doublons()
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range("a2", [a65000].End(xlUp))
mondico(c.Value) = ""
Next c
Sheets(2).[a2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
End Sub
ou
=INDEX(champ;MIN(SI(champ<>"";SI(NB.SI(A$1:A1;champ)=0;EQUIV(champ;champ;0);LIGNES(champ)))))
Valider avec maj+ctrl+entrée