TABLEAUX: FONCTION TRANSPOSE SANS LIMITE V1.0.0

Bonjour à tous,
J'ai le plaisir de mettre à votre disposition une fonction permettant de transposer un tableau à 1 ou 2 dimensions.
Mais ça existe ? (Oui une de plus.)
Oui, il existe la fonction Excel WorksheetFunction.Transpose.
Mais celle-ci a les limites suivantes:
- 65000 lignes.
- Ne connait que l'indice de départ 1. Base 1 -> (1 to a) ou (1 to a, 1 to b)
- Ne sait pas convertir une chaine ou valeur simple en tableau (1 ,1) ou (0,0)

Revenons à ma fonction
Transpose() permet:

1. De transposer un tableau
2. Transposer directement les Ranges (Retourne le tableau)
3. Fin de la limite à 65536 lignes/Colonnes
4. De convertir/"transposer" une simple chaine de caractères/valeur en un tableau T(1,1)
5. De choisir la base départ du tableau (Base 0 ou 1)

Le fichier contient:

1. Un module contenant un code pour tester la fonction
2. Un module de classe cls_Tools contenant la fonction Transpose.
3. La fonction de CountArrayDim. Elle sert à connaitre le nombre de dimensions du tableau passé (Me sert aussi à connaitre si des tableaux ont plus de 2 dimensions) .

Syntaxes et paramètres:
Result = Transpose(Ma Variable, True)
Ma Variable: Variable qui peut être un tableau, une valeur/texte unique ou un Range Excel
Base1: (Optionnel) peut-être True ou False. Valeur par défaut: True
Si True le tableau retourné est de base 1 sinon il est de base 0
Result: Un tableau 2D de base 1 ou 0

Voilà.
On peut faire mieux mais la fonction comble les lacunes de celle d'Excel.
Toute suggestion est là bienvenue.
Merci à vous

DIFFERENCE WorksheetFunction.Transpose et Transpose:
Quand on transmet un tableau T(1 to a) :
La fonction d'Excel retourne T(1 to A, 1 to 1) alors que ma fonction Transpose retourne T(1 to 1, 1 to A)