Llenar un listbox en VBA

Hola,

Tengo un nivel bajo en VBA (normalmente me las arreglo), pero ahora estoy atascado con completar una ListBox

Quiero llenar una ListBox a partir de una búsqueda en un archivo de Excel:
el archivo contiene 3 columnas: "código artículo", "fecha", "necesidad"
(debo hacer un pequeño sistema que muestre las fechas y las necesidades para el código artículo buscado).

Hago una búsqueda del código artículo, y me gustaría que cada vez que encuentre ese código, inserte en mi ListBox una fila adicional que contenga la fecha y la necesidad.

aquí va el inicio de mi código:

Private Sub CommandButton1_Click()
nom_fichier = TextBox2.Value & "\" & TextBox1.Value & ".xls"
Workbooks.Open Filename:=nom_fichier

For i = 25 To 10000
'búsqueda de la última fila
If Not IsEmpty(Cells(i, 1)) Then
a = a + 1
Else
i = 10000
End If
Next

'búsqueda de los valores de la tabla que correspondan a la búsqueda

For j = a To 2 Step -1
If Cells(j, 1) = TextBox3.Value Then
ListBox1.AddItem ....... (debe insertar en una misma línea las celdas: cells(j, 2) y cells(j,3))
End If
Next
End Sub

***********************************

Me atoro con el llenado de mi ListBox, y no encuentro ningún post con métodos (disculpa si existen)

gracias de antemano

Configuración: Windows XP Internet Explorer 6.0