Remplacer une chaîne de caractères par une autre

Sub RechercheEtRemplace
GlobalScope.BasicLibraries.loadLibrary("zBasic")

Do 'On boucle tant que la recherche renvoie une cellule
	i = i+1
	sAdr = zRecherche.Chaine("Feuille1", "A1:E100", "TOTO")
	if sAdr = "" then exit do
	zCellule.Ecrit("Feuille1", sAdr, "C", "X")
Loop Until sAdr = ""	
End Sub