Public Function NiemeTEL(Cellule As Range, Optional Nieme As Byte = 0)
'Si Nieme <= 0 ou manquant alors retourne le nombre de numéros de tél trouvés
Dim i, j, S, trouve, Tel(), N
For j = 1 To Len(Cellule) - 9
S = Mid(Cellule, j, 14)
If S Like "0#?##?##?##?##" Then
S = Replace(S, Mid(S, 3, 1), ".")
N = N + 1
ReDim Preserve Tel(1 To N)
Tel(N) = S
j = j + 13
End If
S = Mid(Cellule, j, 10)
If S Like "0#########" Then
S = Mid(S, 1, 2) & "." & Mid(S, 3, 2) & "." & Mid(S, 5, 2) & "." & Mid(S, 7, 2) & "." & Mid(S, 9, 2)
N = N + 1
ReDim Preserve Tel(1 To N)
Tel(N) = S
j = j + 9
End If
Next j
If Nieme = 0 Then
NiemeTEL = N
ElseIf Nieme > N Then
NiemeTEL = ""
Else
NiemeTEL = Tel(Nieme)
End If
End Function