Embarquer dans le classeur toutes les images liées à une feuille

Sub Main
	GlobalScope.BasicLibraries.loadLibrary ("zBasic")
	
	listeImages = zImage.Liste()
	zTable.Ecrit(zFeuille.Active(), "A1", listeImages)
	'ne garder que la 1ere colonne
	listeImages = zTable.VersListe(listeImages)
	for each uneImage in listeImages
		zImage.Integre(uneImage)
	next	
	'nouvelle liste pour voir le résultat
	listeImages = zImage.Liste()
	zTable.Ecrit(zFeuille.Active(), "A5", listeImages)
End Sub