Listbox : colonne selon une autre

Bonjour

dans le classeur joint, je cherche à alimenter la 3° colonne d'une listbox selon les valeurs contenues dans la 2° colonne de cette même listbox. J'ai essayé avec le code suivant, sans succès ...

With Sheets(2)
    Plage = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To Plage
        Me.ListBox1.AddItem .Range("A" & i).Value
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = .Range("B" & i).Value
        Ligne = Sheets(1).[I:I].Find(ListBox1.Column(1).Value, lookat:=xlWhole).Row
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Sheets(5).Range("R" & Ligne).Value
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = .Range("C" & i).Value
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = .Range("D" & i).Value
    Next i
End With

Les titres de mes colonnes dans l'Userform doivent être assez explicites pour que vous arriviez facilement à cerner mon problème.

Merci d'avance

Bonjour Boby63 le forum

Bravo boby, je vais regarder ton fichier si je comprends ce que tu veux

a+

Papou

Re Bonjour Boby63 le forum

avec une base comme tu as mis que des cd1 et des cd2 c'est facile pour contrôler son travail !!!

moi j'ai changé la colonne 4 de la feuille 2 pour tester

Mais cette fois-ci tu as joins un fichier alors c'est bien.....

a+

Papou

Bonjour Paritec

Et merci. C'est parfait

Bonne journée à tous