XL 2019 Matrices VBA (array)

Sub Essai()
T = [A1:B6]             ' Tableau de données
MotRecherché = 1        ' Chaine recherchée
For i = 1 To UBound(T)
    If T(i, 1) = MotRecherché Then Occurence = Occurence + 1
Next i
MsgBox Occurence
End Sub

Sub testArraySimple1()
    'test avec un tableau 2 dim converti en array 1 dim
    tablo = Application.Transpose([A1:A30].Value)
    MsgBox ArrayCountIF(tablo, "toto")
End Sub

Sub testArraySimple2()
    'test avec un array 1 dim (le split d'une chaine)
    tablo = Split("riri,toto,loulou,robert,toto,truc,machin,bidule,chose,kevin,jacques", ",")
     MsgBox ArrayCountIF(tablo, "toto")
End Sub

Function ArrayCountIF(T, recherche)
    Dim A&, Elem
    For Each Elem In T: A = IIf(Elem = recherche, A + 1, A): Next
    ArrayCountIF = A
End Function

Sub testTableau2DIM_1()
    tablo = [A1:B30].Value
    MsgBox Array2DimCountIF(tablo, "toto", col:=2)    'cherche le countif "toto dans la colonne 2
End Sub

Sub testTableau2DIM_2()
    tablo = [A1:B30].Value
    MsgBox Array2DimCountIF(tablo, "toto", ligne:=13)    'cherche le countif "toto dans la ligne 13
End Sub

Sub testTableau2DIM_3()
    tablo = [A1:B30].Value
    MsgBox Array2DimCountIF(tablo, "toto", All:=True)    'cherche le countif "toto dans tout le tableau
End Sub

Function Array2DimCountIF(T, recherche, Optional ligne As Long = -1, Optional col As Long = -1, Optional All As Boolean = False)
    Dim A&, Elem
    With Application
        If ligne > -1 Then tx = .Index(T, ligne)
        If col > -1 Then tx = .Transpose(.Index(T, , col))
    End With
    If All Then tx = T
    For Each Elem In tx: A = IIf(Elem = recherche, A + 1, A): Next
    Array2DimCountIF = A
End Function