Probleme de lecture dans un fichier texte

Réponse acceptée !
Utilise le 1er argument de instr(), qui est facultatif, et qui est un entier, indiquant à partir de quel caractère tu fais la recherche. Dim Buffer as string, str as String, i as long, j as long Buffer = "blablablablablablabla" str = "La Momie" j = 0 i = 1 Do i = instr(i, Buffer, Str) If i <> 0 Then j = j + 1 Msgbox("occurence N°" & cstr(j) & " trouvé à l'indice " & cstr(i)) i = i + 1 ' If faut absolument décalé le début de la recherche d'au moins 1 caractère, sinon le code va boucler à l'infini sur al 1ere occurence !! End if loop until i = 0 Voici un petit exemple de boucle exploitant ce param pour indiquer toutes les occurences d'une sous-chaine dans une autre