Option Compare Text 'la casse et ignorée
Private Sub ComboBox1_Change()
Dim crit$, tablo, i&, liste(), n&
If Len(ComboBox1) < 3 Then Exit Sub
crit = "*" & ComboBox1 & "*"
tablo = [Tableau1] 'matrice, plus rapide
For i = 1 To UBound(tablo)
If tablo(i, 2) Like crit Then
ReDim Preserve liste(n)
liste(n) = tablo(i, 2)
n = n + 1
End If
Next
If n Then ComboBox1.List = liste Else ComboBox1.Clear
[C16] = ComboBox1
End Sub
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox1_Change
ComboBox1.DropDown 'déroule la liste
End Sub