Bonjour,
à tester,
Private Sub CommandButton1_Click()
Me.ListBox1.Clear
Set Rng = Range("a:a")
Set c = Rng.Find(Me.TextBox1.Value, LookIn:=xlValues)
Me.ListBox1.List = Sheets("Feuil1").Range("A1:U1").Value
If Not c Is Nothing Then
premier = c.Address
i = 1
Do
Me.ListBox1.AddItem
Me.ListBox1.List(i, 0) = c.Offset(0, 12).Value
Me.ListBox1.List(i, 1) = c.Offset(0, 0).Value
Me.ListBox1.List(i, 2) = c.Offset(0, 1).Value
Me.ListBox1.List(i, 3) = c.Offset(0, 2).Value
Me.ListBox1.List(i, 4) = c.Offset(0, 3).Value
Me.ListBox1.List(i, 5) = c.Offset(0, 8).Value
Me.ListBox1.List(i, 6) = c.Offset(0, 10).Value
Set c = Rng.FindNext(c)
i = i + 1
Loop While Not c Is Nothing And c.Address <> premier
Else
MsgBox "Aucune donnée", vbInformation, "Notification"
End If
End Sub