VBA excel : comment alimenter un tableau dynamique à partir des éléments sélectionnées sur listbox d'un userfo

Bonjour

je suis un nouveau membre sur votre groupe , je suis fasciné par la qualité de vos tutoriels . cepandant j'arrive pas à alimenter un tableau dynamique à partir des élements sélectionnées sur une listbox d'un userform .
j'ai essayé ça mais ça marche pas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim tp1() As String ReDim tp1(5) dim i as integer dim f as integer f=0 For i = 0 To 1000 ReDim tp1(UBound(tp1) + 1) If ListBox1.Selected(i) = True Then tp1(f) = ListBox1.List(i) MsgBox tp1(f) f = f + 1 End If Next i

---

en effet lorsque le code s'exécute il m'affiche d'autre éléments que j'ai ps sélectionné dans la liste.
merci si vous pouvez m'aider.:)

mon objectif c'est de faire la différence entre deux tableaux string dont l'une ( tab1 ) contient tous les élements de listbox1 et (tab2 ) contient les élements sélectionnés et stocker la différence dans un tableau array pour l'utiliser dans un auto-filter