VBA : obtenir les valeurs uniques d'un tableau

[ForumBot]

Existe-t-il une fonctionnalité intégrée en vba pour obtenir les valeurs uniques d’un tableau unidimensionnel ? Ou même simplement pour supprimer les doublons ?

Si non, comment pourrais-je obtenir les valeurs uniques d’un tableau ?

---

Source : Stack Overflow

[ayi]

Cette publication contient 2 exemples. Je préfère le 2ème :

Sub unique()
  Dim arr As New Collection, a
  Dim aFirstArray() As Variant
  Dim i As Long

  aFirstArray() = Array("Banana", "Apple", "Orange", "Tomato", "Apple", _
  "Lemon", "Lime", "Lime", "Apple")

  On Error Resume Next
  For Each a In aFirstArray
     arr.Add a, a
  Next
  On Error Goto 0 ' added to original example by PEH

  For i = 1 To arr.Count
     Cells(i, 1) = arr(i)
  Next

End Sub