Bonjour Petitpeton, pyrof, le Forum
En partant sur l'hypothèse que tes nombres sont entiers (comme tu nous le présentes)
Feuille : =CNUM(SUBSTITUE(A1;" "
)
VBA : ActiveCell.NumberFormat = "0"
Où, plus général, élimination des caractères différents de chiffres :
Sub Recherche_Nombre()
Dim Actuel as String
Dim Retour as String
Dim i as Integer
Actuel = ActiveCell.Value
Retour = ""
For i = 1 To Len(Actuel)
If Asc(Mid(Actuel, i, 1)) > 47 And Asc(Mid(Actuel, i, 1)) < 58 Then
Retour = Retour & Mid(Actuel, i, 1)
End If
Next i
ActiveCell.Value = Val(Retour)
End Sub
Bonne journée
PhiBou