Private Sub B_GO_Click_Click()
Dim c As Range, premier As String, i As Long
With ListBox1
.Clear
.ColumnCount = 4
.TextAlign = fmTextAlignRight
End With
With Range("a1:a" & Range("a65536").End(xlUp).Row)
Set c = .Find(Me.TextBox1.Value, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
Me.ListBox1.AddItem c.Value
Me.ListBox1.Column(1, i) = c.Offset(0, 1).Value
Me.ListBox1.Column(2, i) = Format(c.Offset(0, 2).Value, "# ##0.00")
Me.ListBox1.Column(3, i) = Format(c.Offset(0, 3).Value, "dd/mm/yyyy")
Set c = .FindNext(c)
i = i + 1
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
End Sub