Faire un tri décroissant d'une plage à un autre endroit de la feuille

Sub Test
GlobalScope.BasicLibraries.loadLibrary ("zBasic")
	maFeuille = "Test"
	maPlage = "A1:B10"
	oTable = zPlage.VersTable(maPlage)
	'Tri par nombre décroissant
	oTable = zTable.TriNaturel(oTable, 2, 1)	
	nIndex = zPlage.LigneVide (maFeuille, "A1:B100")
	nIndex = nIndex + 1
	zTable.Ecrit(MaFeuille, "A" & nIndex, oTable)
	
End sub