Remplir un ListBox (Dans un UserForm)

Bonjour,

J'ai un bref moment de solitude...

On est dans un UserForm, le Listbox (LbData) est rempli

On modifie des choses...

On charge un Dico

On vide le dico dans une feuille Ok

On recharge plusieurs Array avec le contenu du Dico Ok

... Suis pas foutu de recharger ce p... de ListBow avec le contenu du Dico (ou des Array...)

Private Sub galopin()
Dim a, b, D, i&, Y
a = rng.Value2
Set D = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(a) 'On charge le Dico
   Y = a(i, 1) >= iDeb And a(i, 1) <= iFin
    If Y Then
       D.Item(i) = Array(a(i, 1), a(i, 2), a(i, 3), a(i, 4))
     End If
Next
[F3].Resize(D.Count, UBound(a, 2)) = Application.Transpose(Application.Transpose(D.items)) 'Affichage Ok
a = [F3].Resize(D.Count, UBound(a, 2)) 'on charge un Array avec le contenu du Dico : chargement Ok
b = D.items 'on charge un autre Array avec le contenu du Dico : chargement Ok
'On essaie de recharger le ListBox LbData :
Me.LbData.List = WsD.Range("F3").Resize(b.Count, UBound(b, 2)) 'erreur 70 Permission refusée
'idem avec :
Me.LbData.List = b 'erreur 70 Permission refusée

Une idée de la marche que j'ai loupé ?

A+

Je me répond à moi-même je ne peux plus passer par un Array car le ListBox à été chargé avec RowSource.

Entre boire te conduire... !

A+