Function Chiffres(txt$)
Dim i%, x$
For i = 1 To Len(txt)
x = Mid(txt, i, 1)
If IsNumeric(x) Then Chiffres = Chiffres & x
Next
End Function
Function Nombres(txt$, Optional sep$)
Dim i%, x$
For i = 1 To Len(txt)
x = Mid(txt, i, 1)
Nombres = Nombres & IIf(IsNumeric(x) Or x = "," Or x = ".", x, " ")
Next
Nombres = Application.Trim(Nombres) 'SUPPRESPACE
If Len(sep) Then Nombres = Replace(Nombres, " ", sep)
End Function