Function Extraire_chiffres(t$)
Dim i%, v
For i = 1 To Len(t)
v = Mid(t, i, 1)
If IsNumeric(v) Then Extraire_chiffres = Extraire_chiffres & v
Next
End Function
=JOINDRE.TEXTE("";;SI(ESTNUM(-STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1));STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1);""))
Function Extraire_chiffres(t$)
Dim i%, v
For i = 1 To Len(t)
v = Mid(t, i, 1)
If IsNumeric(v) Then Extraire_chiffres = Extraire_chiffres & v
Next
End Function