Option Compare Text
Dim TblBD()
Private Sub UserForm_Initialize()
TblBD = [client].Value
Me.ListClient.List = TblBD
Me.ListClient.ColumnCount = 2
Me.ListClient.ColumnWidths = "30;100"
End Sub
Private Sub TxtRecherche_Change()
ColRecherche = 2
clé = "*" & Me.TxtRecherche & "*": n = 0
Dim Tbl()
For i = 1 To UBound(TblBD)
If TblBD(i, ColRecherche) Like clé Then
n = n + 1: ReDim Preserve Tbl(1 To UBound(TblBD, 2), 1 To n)
For k = 1 To UBound(TblBD, 2): Tbl(k, n) = TblBD(i, k): Next k
End If
Next i
If n > 0 Then Me.ListClient.Column = Tbl Else Me.ListClient.Clear
End Sub