VBA Ne garder qu'une partie du texte

Sub Macro1()
    'A Modifier en fonction du nombre de cellule
    NombreCellules = 2
    
    For i = 1 To 2
        Range("A" & i).Select
        lstrChaineOriginal = ActiveCell.FormulaR1C1
        li32PositionEspace = InStr(lstrChaineOriginal, " ")
'On Prends la position de l'espace +1 car on ne veux pas l'espace dans la colonne B
'On récupère autant de caracètre qu'il y en a moins les caractères avant l'espace.
        lstrChaineAEcrire = Mid(lstrChaineOriginal, li32PositionEspace + 1, Len(lstrChaineOriginal) - li32PositionEspace + 1)
'On écris le résultat
        Range("B" & i).Select
        ActiveCell.FormulaR1C1 = lstrChaineAEcrire
    Next
End Sub