Private Sub Combobox1_GotFocus()
ComboBox1.MatchEntry = fmMatchEntryNone
ComboBox1 = ""
ComboBox1.ListFillRange = [recherche].Address(External:=True)
ComboBox1.DropDown 'déroule la liste
End Sub
Private Sub Combobox1_Change()
Dim tablo, a(), x$, i&, n&
tablo = [recherche].Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
ReDim a(1 To UBound(tablo), 1 To 1)
x = "*" & ComboBox1 & "*"
For i = 1 To UBound(tablo)
If tablo(i, 1) Like x Then
n = n + 1
a(n, 1) = tablo(i, 1)
End If
Next
ComboBox1.ListFillRange = ""
If n Then
[Z:Z].ClearContents
[Z1].Resize(n) = a
ComboBox1.ListFillRange = [Z1].Resize(n).Address(External:=True)
ComboBox1.DropDown 'déroule la liste
End If
End Sub