Manipulation d'une variable

bonjour

apres pas mal d'essais sur une idée , je ne trouve pas , j'ai une cellule contenant systematiquement une valeur chiffrée et des caractères

par exemple en cellule A1 j'aurai : " 3 VELOS" , la valeur chiffrée pouvant varier de 0 à 9

j'ai donc ecris un bout de code qui doit me renvoyer le nombre de vélos :

je renseigne donc manuellement la cellule A1 en ecrivant par exemple" 4 VELOS"

puis je lance le code suivant :

Dim k As Integer

For k = 0 To 9

If Range("i8") = " "& k &" & range("i8").text Then   ' c'est ici que je coince , je n'arrive pas à formuler correctement 
MsgBox " il y a : " & k &"  VELOS"
End If
Next
End Sub

le msgbox doit me renvoyer dans cet exemple 4 VELOS , mais vu que ma formulation est incorrecte dans le code, ca ne marche pas .

Pourriez vous m'apporter une correction à la ligne en question ?

Merci par avance

Bonjour

A tester

Sub test()
Dim Tablo

  Tablo = Split(Trim(Range("I8")))
  If UBound(Tablo) > 0 Then
    MsgBox "Il y a " & Tablo(0) & " " & Tablo(1)
  End If
End Sub

Merci Banzai , j'en aurai pas fait autant !! je vais tester ca