Bonjour,
L'idéal est d'utiliser une macro de ce genre (mettre le texte en A1 et la macro le transforme en nombre en B1). A adapter selon le besoin.
Sub transformerennombre()
Dim a As Integer
Dim motfinal As String
mot = Range("A1").Value
a = Len(Range("A1").Value)
motfinal = ""
For x = 1 To a
If IsNumeric(Right(Left(mot, x), 1)) Then
motfinal = motfinal & (Right(Left(mot, x), 1))
End If
Next x
Range("B1").Value = motfinal
End Sub
Bonne soirée
@+++
Arnaud.