Function NumeroTelephone$(t$, code$)
Dim i%, x$, flag As Boolean, fin%, deb%
i = InStr(t, code)
If i = 0 Then Exit Function
For i = i + Len(code) To Len(t) + 1
x = Mid(t, i, 1)
If flag Then
If Not IsNumeric(x) And x <> " " Then fin = i: Exit For
Else
If IsNumeric(x) Or x = "+" Then deb = i: flag = True
End If
Next
If deb Then NumeroTelephone = Application.Trim(Mid(t, deb, fin - deb))
End Function