Private Sub CommandButton1_click() 'bouton Lancer la recherche
Dim t$, lig&, i&, j As Byte, col As Byte
Sheets("identité").Select
ListBox1.List = Range("a7:bb7").Value
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