Private Sub ComboBox1_GotFocus()
ComboBox1 = "": ComboBox1_Change 'lance la macro
End Sub
Private Sub ComboBox1_Change()
Liste ComboBox1, [ListeCardio]
End Sub
Sub Liste(cb As ComboBox, R As Range)
Dim x$, tablo, i&, y$, a$(), n&
x = "*" & cb & "*" 'critère avec caractère générique
tablo = R 'matrice, plus rapide
For i = 1 To UBound(tablo)
y = tablo(i, 1)
If y Like x Then
ReDim Preserve a(n)
a(n) = y
n = n + 1
End If
Next
If n Then cb.List = a: cb.DropDown Else cb.Clear
End Sub