WORD Demande correction code VBA de macro qui buggue

bonjour,
le message indique qu'il y a autre chose ayant le nom "Remplacer", et que ce n'est pas autorisé.
renomme peut-être les deux occurrences de "Remplacer", en lignes 11 et 15.

Bonjour,

Cette macro fonctionne jusqu'à présent.
Avec combien d'element dans le tableau?

Pourquoi la ligne de tableau est rose?

Re,

Avec votre code de depart et en laissant seulement 238 elements dans le tableau, pas de probleme. Vous avez un office 64bits je suppose, perso 32 bits.

Si vous remplacez "Remplacer" cote procedure, faites le aussi pour l'appel de procedure

Vous avez surement raison, mais dites moi ce que je dois faire SVP, le VBA m'est quasi inconnu. cote procedure ? appel de procedure ? Si vous me faisiez ça sur le code ça me redrait service, tout au moins me dire ce que je dois mettre à la place de Remplacer; Merci.

Je rajoute : Pourtant voici ci dessous ma macro "modèle" avec des mots clés différents, mais beaucoup moins, elle comporte 2 fois "remplacer" et elle fonctionne tout à fait, je viens de la tester à l'instant. Vous ne pensez pas que c'est un pb de nombre de mots ? Si c'est le cas, dois je faire plusieurs macro avec chacune une partie des mots clé ? Existe t il alors un moyen des les enchaîner pour ne faire qu'un seul code ?
Merci de m'aider pcq là je nage, je ne comprends pas pourquoi là ca fonctionne ici et pas avec celle qui me pose pb. Vous dites que le nb de mots n'est pas un pb ....

Sub Textesofficiels()

Dim lesMots() As Variant
Dim mot As Variant

lesMots = Array("convention", "déclaration", "pacte", "traité", "droit", "international", "charte", "conférence", "protocole", "facultatif", "manifeste", "article", "préambule", "introduction", "loi", "décret", "arrêté", "circulaire", "plate-forme", "plateforme", "sommet", "acte", "objectif", "résolution", "communication", "entrée", "vigueur", "sign", "ratif", "additif", "secrétaire", "général", "application", "exécution", "programme", "document", "orientation", "partenariat", "accomodation", "agenda", "rapport", "commission", "commissaire", "mesure", "plan", "action", "dispos", "UN", "ONU", "FAO", "UNESCO", "UNICEF", "WHO", "WORLDBANK", "BM", "OMS", "UNAID", "ONUSIDA", "BIT", "OIT", "UNWOMEN", "ONUFEMME", "PNUD", "UNDP", "HCT", "OCR", "FNUAP", "PNUE", "HI", " UE ")

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

Re,

code post <8>, vous avez 69 elements
perso, le max que j'ai pu mettre c'est 238 car le VBA averti que la longueur maxi de la ligne est atteinte

Si votre Office est un 64bits, je ne sais pas si vous pourrez depasser ce nombre

Pour verifier, faites des renvois a la ligne comme ceci avec votre variable de votre premiere demande

Re,
Regardez attentivement ce qu'il y a à la fin de chaque ligne dans l'image que j'ai mise

Re, j'avoue que je ne comprends strictement rien : pourquoi Sub Textesofficiels() qui se trouve à la réponse5/7, que j'ai copié, supprimé, recollé dans un autre module et testé sur ce nouveau fichier :

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

fonctionne parfaitement, (vous pouvez tester aussi Sub Textesofficiels() est dans la liste des macro), et pourquoi Sub ProjetDj() construite exactement sur le même modèle, dasn un module différent, je n'y ai changé que les mots dans lesMots = Array, bogue. C'est vrai que les mots apparaissent en rouge sans que je comprenne pourquoi, et où il dénote une erreur de syntaxe alors que la syntaxe me parait correcte (et avant même de parler du "Remplacer" qui lui pose problème aussi).

c'est pourtant sur Sub ProjetDj() qu'il me faut trouver une solution.
Continuez de m'aider SVP sachant que VBA pour moi c'est du chinois

SOLUTION 2 : Bonjour, j'ai continué à fouiller le pb et réussi à mettre tous mes 268 mots dans un seul code (module séparé naturellement) : il faut répéter à chaque portion lesMots=Array(.....
Pour l'instant je ne sais pas à combien se limite chaque portion, moi j'étais aux alentours de 70; Si quelqu'un sait ça m'intéresse. Merci à vous 2 !

Sub ProjDj268()

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")
lesMots = Array("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")
lesMots = Array("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")
lesMots = Array("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