Macro qui ne prends pas en compte les accents

Bonjour, J'ai copié un code sur cette page https://forum.excel-pratique.com/excel/detection-nom-prenom-ne-marche-pas-t53783-10.html il fonctionne bien à part le détail mentionné dans le titre de mon post. Y-a-t-il quelqu-un qui peut m'aider. Dans le fichier joint en rouge les cellules à problémes.

bonjour,

en ajoutant les caractères qui manquent

Sub galopi()
Function Nom(c)
    Application.Volatile
    Set obj = CreateObject("vbscript.regexp")
    obj.Pattern = "([A-Z'ÔËÉÈÏ]{2,}\s*-?)+"
    Set a = obj.Execute(c)
    If a.Count > 0 Then Nom = a(0) Else Nom = ""
End Function

Function Prénom(c)
    Application.Volatile
    Set obj = CreateObject("vbscript.regexp")
    c = Replace(Replace(Replace(c, "M.", ""), "Mme", ""), "Mle", "")
    obj.Pattern = "([A-ZÉ][a-zëéèôçï]+\s*-?)+"
    Set a = obj.Execute(c)
    If a.Count > 0 Then Prénom = a(0) Else Prénom = ""
End Function

Excellent et rapide, merci