If TextBox2 <> "" Then
'Cells(Me.ListBox1.List(Me.ListBox1.ListIndex, 2), 3).Select
Set f = Sheets("Liste")
t = f.Range("b1:c" & f.Range("a65000").End(xlUp).Row).Value
For laLigne = 1 To UBound(t)
If t(laLigne, 1) = ListBox1.List(ListBox1.ListIndex, 1) And t(laLigne, 2) = ListBox1.List(ListBox1.ListIndex, 0) Then Exit For
Next laLigne
If laLigne <= UBound(t) Then Cells(laLigne, 3).Select Else Cells(1, 3).Select
End If