Function ExtractChiffres(Cellule As Range) As String
Dim A$
Dim B$
Dim i&
'---
A$ = CStr(Cellule)
For i& = 1 To Len(A$)
If IsNumeric(Mid(A$, i&, 1)) Then
B$ = B$ & Mid(A$, i&, 1)
Else
If Right(B$, 1) <> " " Then B$ = B$ & " "
End If
Next i&
ExtractChiffres = Trim(B$)
End Function