XL 2013 connaitre le type de variable tableau un ou 2 dim et le sens

Sub testy7()    'test tableau ligne ligne renvoie 11 ou 14( pas bon )
    Dim liste
    a = [A1:z1].Value
    MsgBox WhatIsIt(a)
    ReDim liste(1, 0 To 5)
    MsgBox WhatIsIt(liste)
    ReDim liste(0, 1 To 5)
    MsgBox WhatIsIt(liste)
    ReDim liste(1 To 1, 1 To 5)
    MsgBox WhatIsIt(liste)
End Sub

Sub testy3()    ' test tableau colonne renvoi 14
    Dim liste As Variant
    liste = [A1:A10].Value
    MsgBox WhatIsIt(liste)
    ReDim liste(0 To 5, 1 To 1)
    MsgBox WhatIsIt(liste)
    ReDim liste(0 To 5, 0)
    MsgBox WhatIsIt(liste)
End Sub

Sub testy1()    'test array renvoie 3
    Dim liste As Variant
    liste = Array(1, 2, 3, 4, 5, 6)
    MsgBox WhatIsIt(liste)
    ReDim liste(1 To 10)
    MsgBox WhatIsIt(liste)
MsgBox WhatIsIt(Split("toto,toto,titi,riri,fifi", ","))

End Sub

Function WhatIsIt(ByVal quoi As Variant)
    On Error Resume Next
    x = UBound(quoi, 2):
    If Err.Number > 0 Then WhatIsIt = "array": Err.Clear: Exit Function
    If UBound(quoi) > 0 Then WhatIsIt = "colonne"
    ind = IIf(UBound(quoi, 2) = 0, 1, UBound(quoi, 2))
    WhatIsIt = IIf(ind >= 2, "ligne", "colonne")
    Err.Clear
End Function

For i As Integer = 1 To TypeName(T).ToString.Split(",").Count
    If vReturn <> "" Then vReturn += ","
    vReturn += UBound(T, i).ToString
Next

Option Explicit

'https://stackoverflow.com/questions/6901991/how-to-return-the-number-of-dimensions-of-a-variant-variable-passed-to-it-in-v
#If VBA7 Then
  Private Type Pointer: Value As LongPtr: End Type
  Private Declare PtrSafe Sub RtlMoveMemory Lib "kernel32" (ByRef dest As Any, ByRef src As Any, ByVal Size As LongPtr)
#Else
  Private Type Pointer: Value As Long: End Type
  Private Declare Sub RtlMoveMemory Lib "kernel32.dll" (ByRef dest As Any, ByRef src As Any, ByVal Size As Long)
#End If

Private Type TtagVARIANT
    vt As Integer
    r1 As Integer
    r2 As Integer
    r3 As Integer
    sa As Pointer
End Type

Sub Test()
    Dim t As Variant
  
    t = Array(1, 2, 3)
    MsgBox WhatIsIt(t)
  
    t = [A1:A12].Value
    MsgBox WhatIsIt(t)
  
    t = [A1:L1].Value
    MsgBox WhatIsIt(t)
  
    t = [A1:L12].Value
    MsgBox WhatIsIt(t)
End Sub

Public Function GetDims(source As Variant) As Integer
    Dim va As TtagVARIANT
    RtlMoveMemory va, source, LenB(va)                                            ' read tagVARIANT              '
    If va.vt And &H2000 Then Else Exit Function                                   ' exit if not an array         '
    If va.vt And &H4000 Then RtlMoveMemory va.sa, ByVal va.sa.Value, LenB(va.sa)  ' read by reference            '
    If va.sa.Value Then RtlMoveMemory GetDims, ByVal va.sa.Value, 2               ' read cDims from tagSAFEARRAY '
End Function

Public Function WhatIsIt(t As Variant) As String
    Select Case GetDims(t)
        Case 2
            If UBound(t, 1) - LBound(t, 1) = 0 Then
                WhatIsIt = "C'est un array issu d'un Range de ligne"
            ElseIf UBound(t, 2) - LBound(t, 2)  = 0 Then
                WhatIsIt = "C'est un array issu d'un Range de colonne"
            Else
                WhatIsIt = "C'est un array issu d'un Range de ligne(s) et colonne(s)"
            End If
      
        Case Else
            WhatIsIt = "C'est pas un array issu de Range"
    End Select
End Function

Option Explicit

'https://stackoverflow.com/questions/6901991/how-to-return-the-number-of-dimensions-of-a-variant-variable-passed-to-it-in-v

#If VBA7 Then
  Private Type Pointer: Value As LongPtr: End Type
  Private Declare PtrSafe Sub RtlMoveMemory Lib "kernel32" (ByRef dest As Any, ByRef src As Any, ByVal Size As LongPtr)
#Else
  Private Type Pointer: Value As Long: End Type
  Private Declare Sub RtlMoveMemory Lib "kernel32.dll" (ByRef dest As Any, ByRef src As Any, ByVal Size As Long)
#End If

Private Type TtagVARIANT
    vt As Integer
    r1 As Integer
    r2 As Integer
    r3 As Integer
    sa As Pointer
End Type

Public Function GetDims(source As Variant) As Integer
    Dim va As TtagVARIANT
    
    RtlMoveMemory va, source, LenB(va)                                            ' read tagVARIANT              '
    If va.vt And &H2000 Then Else Exit Function                                   ' exit if not an array         '
    If va.vt And &H4000 Then RtlMoveMemory va.sa, ByVal va.sa.Value, LenB(va.sa)  ' read by reference            '
    If va.sa.Value Then RtlMoveMemory GetDims, ByVal va.sa.Value, 2               ' read cDims from tagSAFEARRAY '
End Function