Function Rue(c)
Application.Volatile
Set obj = CreateObject("vbscript.regexp")
obj.Pattern = "(\d{0,4}[\s,]?[a-z,A-Z]+\s)+"
Set a = obj.Execute(c)
If a.Count > 0 Then Rue = a(0) Else Rue = ""
End Function
Function Ville(c)
Application.Volatile
Set obj = CreateObject("vbscript.regexp")
obj.Pattern = "(\d{5}\s)[A-Z,a-z,\s,-]+"
Set a = obj.Execute(c)
If a.Count > 0 Then Ville = Mid(a(0), 6) Else Ville = ""
End Function
Function CodePostal(c)
Application.Volatile
Set obj = CreateObject("vbscript.regexp")
obj.Pattern = "\d{5}"
Set a = obj.Execute(c)
If a.Count > 0 Then CodePostal = a(0) Else CodePostal = ""
End Function