Liste les tableaux croisés et en supprime un

Après avoir récupérer la liste des TCD présents sur Feuille1, on écrit le contenu de la liste en E1 puis on supprime le 1er TCD noté en F1.

Sub Main
	GlobalScope.BasicLibraries.loadLibrary ("zBasic")
	
	oRet = zTCD.Enumere()
	zTable.Ecrit("Feuille1", "E1", oRet)
	sNom = zCellule.Lit("Feuille1", "F1")
	zTCD.Supprime(sNom)
End Sub