Aimenter un ListBox... toujours vide

Bonjour à tous,

J'essaie depuis un moment d'alimenter une ListBox dans un UserForm... Après plusieurs tentatives et un code qui me semble assez censé , je n'arrive à rien du tout... (Le fichier étant rempli d'information confidentiel, je ne peux le mettre à disposition, désolé).

    ' ListBox des "Destinataires"
    Set f = Sheets("Gestion Mails")
    a = f.Range("A27:D" & f.[A65000].End(xlUp).Row).Value
    Dim Tbl(): ReDim Tbl(1 To UBound(a))
    For i = LBound(a) To UBound(a)
       If a(i, 2) = "x" Then n = n + 1: Tbl(n) = a(i, 1)
    Next i
    ReDim Preserve Tbl(1 To n)
    Me.ListBox1.List = Tbl

Mon UserForm fonctionne (pour l'instant) en "AJOUT" d'un nouveau destinataire mais je souhaite pouvoir 'Rechercher" dans ma listbox1 un utilisateur pour éventuellement le MODIFIER ou SUPPRIMER ou seulement VISUALISER les informations le concernant.

Ma liste commence à la cellule A27 et chaque destinataire possède des informations sur 4 colonnes (de A27 à D27)...

Si quelqu'un peut m'aider, ce sera sympa. Merci.

Joe

Bonjour,

Ce code fonctionne parfaitement... (Merci JB... :) )

Par contre, es-tu sûr que dans la colonne B, il y a bien des "x"? ou d'autres valeurs?

Saperlipopette ! J'ai collé le mauvais code...