Mon bug du find réglé, j'ai un nouveau problème...
Je veux remplacer des mots par des chiffres (jamais les mêmes) et pour cela je fais une boucle While..et j'ai rien trouvé de bien comme test d'arrêt!!
While i <> ActiveDocument.Words.Count n'est pas efficace car il y a trop de mots ds mon document.Il faudrait un truc du genre While (!EOF) ms ça n'existe pas en VB.
Vous avez une idée?

tu peux pas faire une boucle et t'arreter quand tu trouves une case vide ?

Voir mon post tardif sur le FindReplace cela devrait t'inspirer

ok merci kiki29!
Gilloz j'ai oublié de le préciser, ms je travaille sur un fichier Word...merci qd même!

ah okay lol

J'ai pas bien saisie mais pourquoi n'utilises-tu pas une boucle qui par de a=1 jusqu'à " z = Workbooks(fileName2).Sheets(sheetName).UsedRange.Rows.Count"? Je sais pas si dans word c'est pareil mais tu dois avoir une fonction pour trouver le nombre de ligne que tu as dans ton fichier.
 
Pour sortir de la boucle, tu n'as plus qu'à faire a = z après une garde et la boucle fini d'elle même.

Voir ton code modifié dans "Probleme avec .Find"