Private Sub listetwo_Change()
Dim tablo, I&, tablo2, a&
tablo = Filter(liste, Me.listetwo.Text, True, vbTextCompare)
ReDim tablo2(UBound(tablo))
For I = LBound(tablo) To UBound(tablo)
If IsNumeric(listetwo.Value) Then
If Left(Split(tablo(I), ": ")(1), Len(listetwo.Value)) = listetwo.Value Then
tablo2(a) = tablo(I): a = a + 1
End If
Else
If Left(Split(tablo(I), " :")(0), Len(listetwo.Value)) = listetwo.Value Then
tablo2(a) = tablo(I): a = a + 1
End If
End If
Next
listetwo.List = tablo2
Me.listetwo.DropDown
End Sub