XL 2016 aide avec la fonction index et equiv

Private Sub Combobox1_GotFocus()
ComboBox1.ListFillRange = [recherche].Address(External:=True)
End Sub

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