XL 2021 Vos avis SVP: Une fonction TRANSPOSE() à améliorer

'----------------------------------------------------------------------------------
'Transpose qui lève la limite de 65535 items de Excel WorksheetFunction.Transpose()
'
'2 options de transposition sont possibles grâce au paramètre LikeExcel (voir ci-dessous)
'- Transposer selon les mêmes règles que Excel WorksheetFunction.Transpose()
'- Transposer pour toujours obtenir une table transposée à 2 dimensions et ajuster les LBounds de la table transposée
'  Dans le code VBA, cela permet de ne pas se poser de question sur le nombre d'indices toujours à 2 t(x, y) de la table transposée
'
'- t            : Range ou Table à 1 ou 2 dimensions ou une valeur
'
'- BaseOut1     : Optionnel - 0 ou 1 ou autre valeur selon le LBound souhaitée de la 1ère dimension de la table transposée
'                 Par défaut: xlNone pour utiliser le LBound de la 2ème dimension de la table t
'                 Si LikeExcel = True, ce paramètre est ignoré, le LBound sera toujours 1
'
'- BaseOut2     : Optionnel - 0 ou 1 ou autre valeur selon le LBound souhaitée de la 2ème dimension de la table transposée
'                 Par défaut: xlNone pour utiliser le LBound de la 1ère dimension de la table t
'                 Si LikeExcel = True, ce paramètre est ignoré, le LBound sera toujours 1
'
'- LikeExcel    : Optionel - True pour que la transposition applique les mêmes règles que Excel WorksheetFunction.Transpose()
'                 True:  t(n) -> t(n, 1) et t(n, 1) -> t(n)
'                        t(0-2, 0-3) -> t(1-4, 1-3)
'                 False: t(n) -> t(n, 1) et t(n, 1) -> t(1, n)
'                        t(0-2, 0-3) -> t(0-3, 0-2) sauf si BaseOut1 et/ou BaseOut2 ont été spécifiés pour définir les LBounds
'                 Par défaut: False
'
'- Return       : Table à 1 ou 2 dimensions transposée de t
'----------------------------------------------------------------------------------

'    On ne sait pas traiter plus d'une zone par plage (Areas.count)
      If t.Areas.Count < 0 Then
        'Si une erreur se produit sur cette instruction c'est qu'une cellule du Range est en erreur.
        'L'erreur #6 (Dépassement de capacité) est fréquente dans des cellules en format Date contenant un nombre non convertible en date.
        t = t.Value
      Else
        MsgBox "Transpose() can only process ONLY ONE AREA's RANGE"
        Exit Function
      End If
    End If

Sub test()
Dim t(-1 To 2, 0 To 3), i&, j&
   For i = -1 To 2: For j = 0 To 3: t(i, j) = i & ";" & j: Next j, i
   [a1].Resize(UBound(t) - LBound(t) + 1, UBound(t, 2) - LBound(t, 2) + 1) = t
End Sub

If t.Areas.Count = 1 Then