XL 2016 isolés série de caractère d'une chaine

Sub Macro1()
[A1] = "ABC - azertyuiopqsdfghjklm"
MsgBox "Début test"
[A1].TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, Other:=True, OtherChar:="-", FieldInfo:=Array(Array(1, 1), Array(2, 1))
MsgBox "1er Données/Convertir"
[C1].TextToColumns Destination:=Range("C1"), DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 9), Array(7, 1))
MsgBox "2nd Données/Convertir"
'mise en forme, juste pour le test
With [B1:C1]
    .Borders.Value = 1
    .Interior.Color = 1600
    .Font.Color = RGB(55 + 1600 / 8, 0, 0)
    .Font.Bold = True
    .Font.Size = 16
End With
[A1].CurrentRegion.Columns.AutoFit
End Sub