Eclater une cellule contenant code postal et ville sur deux autres

Sub Eclate
	GlobalScope.BasicLibraries.loadLibrary ("zBasic")
	
	'Parcours de A1 à A5
	for i = 1 to 5
		oListe = zCellule.Eclate("A" & i, " ")
		zTable.Ecrit("Feuille1", "B" & i, oListe)
	next
End Sub