Bonjour et merci d’avance pour ce forum

Information : cliqué sur le bouton « Chercher le plan du code » dans la feuille P associer arret
Objectif : afficher la colonne B et D dans ListBox2

Ce code alimente la ListBox2 en cherchons le mot dans toute la feuille (fonctionne très bien), mais je n’arrive pas à afficher les colonnes B et D

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub TextBox2_Change()
 
Dim Prem As String
Dim c As Range
 
With Me.ListBox2
    .Clear
    .ColumnCount = 2
    .BoundColumn = 2
    .ColumnWidths = "100;100"
End With
 
If Me.TextBox2 <> "" Then
    With Worksheets("P associer arret").UsedRange
        Set c = .Find(Me.TextBox2, LookIn:=xlValues, lookat:=xlPart)
        If Not c Is Nothing Then
            Prem = c.Address
            Do
                With Me.ListBox2
                    .AddItem c.Row
                    .List(.ListCount - 1, 1) = c.Offset(, 4 - c.Column)
 
                End With
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Prem
        End If
    End With
    '...
 
End If
 
ListBox2 = Null
 
End Sub
Merci encore