Supprimer des mots dans une feuille par rapport à une liste

Bonsoir

je souhaite ajouté a la macro de la feuille "mot majuscule" une fonction qui me permet d'affiche la liste de mot sans avoir (Le, Car ... )

qui me supprime tout les mots par rapport de la liste de mot a exclure svp
merci

Bonsoir,

Voici un essai avec une fonction qui renvoie un tableau et qui est utiliser au sein de votre macro Nettoie, elle-même appelée par la macro NomsPropres :

Function NETTOYER(PlageAnettoyer, PlageExclusion)

chaine = Join(Application.Transpose(PlageAnettoyer), "~")
motif = Application.Transpose(PlageExclusion)

Set reg = CreateObject("vbscript.regexp")

With reg
    .Global = True
    .IgnoreCase = True
    For i = LBound(motif) To UBound(motif)
        .Pattern = "~" & motif(i) & "~"
        If .Test(chaine) Then chaine = .Replace(chaine, "~")
    Next i
    .Pattern = "~+"
    chaine = .Replace(chaine, "~")
End With

NETTOYER = Application.Transpose(Split(chaine, "~"))

End Function

Cdlt,

Bonjour

je vous remercie pour votre aide

aurai t'il possibilité de mettre les occurrences automatique car actuellement dans la feuille liste des adjectives et liste de verbe et liste de mot majuscule je utilise une fonction qu'une personne sur forum ma proposé mais comme elle est sensible a l'utilisation

( =SOMME(NBCAR(T)-NBCAR(SUBSTITUE(T;A4;"")))/NBCAR(A4)+SOMME(NBCAR(T)-NBCAR(SUBSTITUE(T;MINUSCULE(A4);"")))/NBCAR(A4) )

y aurai une possibilité de mettre ça automatiquement ( ça évite au utilisateur de supprimer la formule ou autre )

cordialement