Sub recher()
With UserForm
key = .TextBox5
cl = .ComboBox1.ListIndex
.ListView1.ListItems.Clear
Set d = Feuil3.[A10]
While (d) <> ""
If key Like UCase(Left(d.Offset(, cl), Len(key))) Then
Set lst = .ListView1.ListItems.Add(, , d.Cells(1, 1))
For i = 2 To 21
lst.ListSubItems.Add , , d.Cells(, i)
If i = 8 Then cumul = cumul + d.Cells(, i)
Next i
End If
Set d = d.Offset(1, 0)
Wend
.TextBox3.Value = .ListView1.ListItems.Count
.TextBox4.Value = Format(Replace(cumul, ".", ","), "0.00 Litres")
End With
End Sub