Rajouter mot

Question

Bonjour, j'ai crée une liste de mot à supprimer et j'aimerais pouvoir l'alimenter via une cellule d'une feuille sans rentrer directement dans le code et rajouter le mot entre guillemet.

Par exemple dans la feuille A, cellule(1,1) j'écris "lundi" et j'appuie sur rajouter et ça alimente ma liste de mot à supprimer et si il existe déjà écrire un message mettant qu'il existe déjà.

Voici le code

Dim listeMotsSupprimer As Variant

listeMotsSupprimer = Array("que", "au", "lundi", "mardi", "mercredi")

For Each element In listeMotsSupprimer
    If dico.Exists(LCase(element)) Then dico.Remove LCase(element)
Next element

Merci

GGautier · Answer

Je vais peut être dire une bêtise mais pour faire ça il faut que tu ajoute une feuille dans ton classeur (que tu masqueras par la suite). Comme ça dans cette feuille tu pourras avoir une liste dynamique ...