Passage de tableau optionnel en paramètre, erreur

Option Explicit

Sub Appel()
Dim monTab As Variant, autreTab As Variant
    monTab = Array("pomme", "poire", "scoubidou")
    MsgBox QuelIndex("scoubidou")                   'Appel sans variable tableau
    MsgBox QuelIndex("scoubidou", monTab)           'Appel avec tableau "Variant" remplit
    MsgBox QuelIndex("scoubidou", autreTab)         'Appel avec tableau "Variant" vide
End Sub

Private Function QuelIndex(Quoi As String, Optional tabl As Variant) As Integer
Dim i As Integer
    If IsMissing(tabl) Then                   'teste si le paramètre Optionnel tabl est manquant
        MsgBox "paramètre manquant"
        QuelIndex = -1
    Else
        If IsArray(tabl) Then                          'teste si tabl est une variable tableau
            For i = LBound(tabl) To UBound(tabl)
                If tabl(i) = Quoi Then QuelIndex = i: Exit Function
            Next i
        Else
            QuelIndex = -1                       'si tabl n'est pas un tableau retourne -1
        End If
    End If
End Function

Sub chercher_ac_codestation(phase As String, Optional debut As Integer, Optional fin As Integer, Optional codestation As String, Optional MonTab)