Function Num(adresse)
Dim T, N, i%, D%
Application.Volatile
T = Split(adresse, " ")
If T(1) = "|" Then
N = T(0) & "|" & T(2)
Else
N = T(0)
End If
D = 0
For i = 1 To Len(N)
If IsNumeric(Mid(N, i, 1)) Then D = 1
Next i
If D = 1 Then Num = N Else Num = ""
End Function