WORD Demande correction code VBA de macro qui buggue

j'avais suggéré de changer les deux occurrences de "Remplacer".

dans la ligne surlignée en jaune, il faut également utiliser

Rempl

au lieu de

Remplacer

.

Merci, non pas du tout voila ci-dessous mon code complet avec mes 268 mots, de même que je montre ci dessus celui qui me sert de modèle et qui fonctionne lui (Sub Textesofficiels). Ce sont exactement les mêmes et je ne m'explique pas pourquoi Sub ProjetDj() buggue.

Par contre oui, comme j'ai toutes mes macro dans le même module, il y a forcément d'autres Sub Remplacer(ByVal LeTexte As String) dont celui ci ci-dessus (Sub Textesofficiels)
Ca aurait une incidence ?

Sub ProjetDj()

Dim lesMots() As Variant
Dim mot As Variant

lesMots = Array("abandon", "accept", "accès", "accr", "achev", "acteur", "administra", "adopt", "AIV", "agence", "ajuste", "amélior", "analys", "analyse", "ann", "annex", "annuel", "appliq", "apprenti", "apprentissage", "approb", "approuv", "appui", "arabe", "assur", "assurance", "atelier", "attein", "audit", "augment", "béneficiaire", "besoin", "brut", "cadr", "calcul", "centr", "chiffre", "class", "classe", "collabor", "collecte", "comment", "communauté", "communi", "compéten", "conclu", "confirm", "connaissance", , "conseil", "construction", "consult", "continu", "contract", "contrainte", "contrôle", "conv", "convenu","corrige", "cour", "curricul", "cycle", "décaiss", "défi", "défini", "définition", "délais", "demand", "détail", "développ", "diffic", "diminu", "disciplin", "discipline", "discuss", "diverge", "diversification", "document", "donnée", "durée", "dys", "échantillon", "école", "éducatif", "éducation", "efficace", "efficient", "élabor", "élarg", "élève", "emplacement", "encadr", "ENS", "enseign", "environnement", "équit", "établissement", "étudiant", "éval", "exact", "exam", "exécut", "exist", "expérience", "expert", "faible", "faisab", "femme", "fiab", "fille", "final", "flux", "focus", "fondamental", "form", "formul", "formule", "français", "fréquence", "général", "genre", "géographi", "gestion", "group", "handicap", "identifiant", "ILD", "impliq", "inclu", "incri", "indépendant", "indic", "infirm", "inform", "infrastructure", "initi", "inopiné", "intégration", "inval", "justif", "lacune", "langue", "lien", "list", "livr", "local", "logistique", "loi", "maint", "maintenance", "mathématique", "matrice", "max", "mécanisme", "MENFOP", "mesur", "méthod", "mini", "mis", "mise", "mission", "modalité", "module", "moyen", "nive", "norm", "note", "nouvel", "novateur", "objectif" , "observ", "obt", "œuvre", "officie", "offre", "opportunité", "OTI", "outil", "paiement", "parité", "part", "partenaire", "partenariat", "parti", "particip", "pédagog", "person", "pertin", "phys", "pièce", "pilot", "plan", "politique", "ponctuel", "porteur", "pourcentage", "prati", "pratique", "précis", "préliminaire", "prenant", "préscolaire", "preuve", "primaire", "priorité", "priv", "profession", "programm", "proje", "promo", "protocole", "prouv", "publi", "qualité", "question", "rapport", "réalis", "recommand", "recueil", "redoubl", "référence", "réfug", "région", "registre", "renforcement", "renseign", "respect", "responsab", "résult", "rétention", "revendi", "révis", "scénario", "scol", "scolaris", "sélection", "session", "seuil", "sex", "significati", "site", "source", "statistique", "statut", "structur", "suiv", "supervis", "supplément", "surveil", "systém", "tableau", "taux", "techno", "terme", "terrain", "test", "TICE", "tranche", "universel", "variable", "ventil", "vérifi", "visite", "vulnérable")

For Each mot In lesMots
Remplacer mot
Next mot
End Sub

Sub Remplacer(ByVal LeTexte As String)
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Color = wdColorRed
With Selection.Find
.Text = LeTexte
.Replacement.Text = LeTexte
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

pour faire suite, j'ai collé mon code dans un nouveau module en lui donnant un autre nom, il se passe exactement la mêmee chose

as-tu appliqué ma suggestion en #7?

comment s'appele le module?
je pense que le moment est venu de partager ton fichier.

Bonjour,

Comme demande par yg_be, pouvez vous mettre votre fichier a dispo
Ce qui me tracasse, c'est la couleur rose de votre ligne array, comme si elle n''est pas valide

Vous n'avez toujours pas repondu sur votre version Office: 32bits ou 64bits

Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...

ou
www.transfernow.net 'fichier jusqu'a 4G

Re, CJOINT / https://www.cjoint.com/c/KIsiV1aCwKw
Je suis en Office 64 bits
pas de confidentialité c'est un rapport officiel de la BM que j'utilise pour faire des essais sur un texte long
Cordialement.

le code VBA n'est pas dans ce fichier, il est probablement dans le fichier normal.dotm

Solution ! .. enfin presque.
Merci à vous deux pour toute votre aide et votre patience.
En fait en prenant toutes vos remarques en compte, j'ai bricolé ainsi : j'ai divisé en 4 en gros mes 268 mots, (70 mots en gros), j'ai fait 4 macros Sub ProjDj1, 2, 3, et 4 (visibles dans la liste des macro) sur le modèle sub Textesofficiels dont je savais qu'il fonctionnait, j'ai collé chacun de ces 1/4 dans chaque lesMots=Array, mais chacune en insérant chaque fois un module différent (pcq sur un même module effectivement le problème "Remplacer" réapparait) et ... ça marche, les 4 macros se déroulent bien les unes après les autres. Je l'ai fait sur plusieurs word différents et sur ce fichier contrôle :

https://www.cjoint.com/c/KIsqzt8ijTw

C'était donc à la base un problème de nombre de mots, enfin en partie au moins.
Il n'en reste pas moins que ce bricolage m'oblige à relancer sur un même fichier 4 macro différentes. Est ce que vous avez une idée pour n'en faire qu'une seule ? ce qui conduirait à reconsidérer le pb du "Remplacer", et puis ca ne me parait pas très catholique d'ouvrir chaque fois un module différent, mais bon vous m'avez déjà bien amené à faire un truc qui fonctionne et qui me rend service pour mon boulot de consultant.