separer du texte de nombre dans une cellule

Sub Convertir()
Range("A1:A" & Range("A65536").End(xlUp).Row).Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1)), TrailingMinusNumbers:=True
        Concatene
End Sub
Sub Concatene()
Range("A1").Select
derl = Range("B65536").End(xlUp).Row
For j = 1 To derl
derc = Cells(j, 2).End(xlToRight).Column
n = 1
CumulTexte = Cells(j, 2)
For I = 1 To derc
If IsNumeric(Cells(j, 2).Offset(0, I).Value) = False Then CumulTexte = CumulTexte & " " & Cells(j, 2).Offset(0, I): n = n + 1 Else GoTo suite
Next
suite:
Cells(j, 2).Offset(0, -1) = CumulTexte
Range(Cells(Cells(j, 2).Row, 2), Cells(Cells(j, 2).Row, n + 1)).Delete Shift:=xlToLeft
Next
End Sub