Private Sub CommandButton1_click() 'bouton Lancer la recherche
Dim t$, lig&, i&, j As Byte, col As Byte
With ListBox1
.Clear
t = "*" & LCase(TextBox1) & "*"
For lig = 2 To Cells(Rows.Count, 5).End(xlUp).Row
If LCase(Cells(lig, 5)) Like t Then
.AddItem
.List(i, 0) = Cells(lig, 6) 'date
.List(i, 1) = Cells(lig, 5) 'identité
j = 2
For col = 10 To 54 'colonne BB
If Cells(lig, col) <> "" Then
.List(i, j) = Cells(1, col) & " = " & Cells(lig, col)
j = j + 1
If j = 7 Then Exit For '5 valeurs maximum
End If
Next
.List(i, 7) = lig
i = i + 1
End If
Next
End With
End Sub