[EXCEL] suppression de caractères

Option Explicit
 
Function extraire_mots(texto As String, seuil As Byte)
 'Michel_M mai 2006
    Dim reg As Object
    Dim texte As Object
    Dim mot As Object
    Dim coll As Collection
    Dim cptr As Byte
     
     'instancie
        Set coll = New Collection
        Set reg = CreateObject("vbscript.regexp")
    ' on travaille sur tout le texte
        reg.Global = True
    'définition du modèle : on cherche des mots  d'au moins  N caractères {seuil, infini } avec les accentués
        reg.Pattern = "(\b[a-zA-Z0-9çàâäéèêëïîôöùû]{" & seuil & ",})"
    
    'exécution de la recherche
    Set texte = reg.Execute(texto)
    'collecte les mots  sans doublons
    For Each mot In texte
        On Error Resume Next
        coll.Add mot.Value, mot.Value
        On Error GoTo 0
    Next mot
   'extrait les mots de longueur >= seuil
   For cptr = 1 To coll.Count
        extraire_mots = extraire_mots & coll(cptr) & "  "
   Next
   Set reg = Nothing
   Set coll = Nothing
End Function

reg.Pattern = "(\b[a-zA-Z0-9çàâäéèêëïîôöùû']{" & seuil & ",})"