Erreur List.index

Bonjour le forum
J' ai l' erreur suivante Erreur d' execution381 Impossible de definir la propriété List.index de table de propriétees non valide". cela se produit à l' ouverture d' un Userfrom que je suis en train d' adapter
Voici le code
Private Sub CommandButton2_Click()
Dim i As Integer, j As Integer
Dim k As Byte
With ListBox1

.Clear

For i = 1 To UBound(tablo)
For j = 1 To UBound(tablo, 2)
If tablo(i, j) = TextBox1 Then
.AddItem tablo(i, 1)
For k = 1 To UBound(tablo, 2)
.List(.ListCount - 1, k - 1) = tablo(i, k)
Next k
End If
Next j
Next i

End With


End Sub



Private Sub UserForm_Initialize()

tablo = Range("A3").CurrentRegion
ListBox1.ColumnCount = 8
initlistbox
End Sub

Public Sub initlistbox()

With ListBox1
.Clear
.List = tablo
.ColumnCount = 8
.ColumnWidths = "5;150;5;150;5;150;5;150"
End With
End Sub

Merci d' avance pour toute réponse car je n' arrive pas à trouvé d' ou provient cette erreur
Aladin