re,
Function Né(tekst)
sp = Split("|" & Replace(Replace(Replace(tekst, ")", ""), "(", ""), " ", "| |") & "|")
fl = Filter(sp, "", 0, 1)
Né = WorksheetFunction.Proper(Replace(Join(Filter(Filter(Filter(sp, "|née|", 0, 1), "|né|", 0, 1), "||", 0, 1)), "|", ""))
End Function