Sub exemple()

    Tableau = Array("Test", 4, "D", "ABC", 8, 21, "XLP", 6)
    arrayDebug Tableau, , , Chr(10) 'Affichage du tableau dans une MsgBox pour vérification
    arraySortAsc Tableau 'Tri du tableau
    arrayDebug Tableau, , , Chr(10) 'Affichage du tableau dans une MsgBox pour vérification


    Tableau = Array("Test", 4, "D", "ABC", 8, 21, "XLP", 6)
    arrayDebug Tableau, , , Chr(10) 'Affichage du tableau dans une MsgBox pour vérification
    arraySortAsc (Tableau) 'Tri du tableau
    arrayDebug Tableau, , , Chr(10) 'Affichage du tableau dans une MsgBox pour vérification


End Sub