Sub test()
ReDim tabres(1, 0)
tablo = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
For n = LBound(tablo, 1) To UBound(tablo, 1)
tabres(0, UBound(tabres, 2)) = Split(tablo(n, 1), ":")(0)
tabres(1, UBound(tabres, 2)) = Split(tablo(n, 1), ":")(1)
ReDim Preserve tabres(1, UBound(tabres, 2) + 1)
Next
Range("A1").Resize(UBound(tabres, 2), 2) = Application.Transpose(tabres)
End Sub
Sub test1()
Set dico = CreateObject("Scripting.dictionary")
tablo = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
For n = LBound(tablo, 1) To UBound(tablo, 1)
x = Split(tablo(n, 1), ":")(0)
dico(x) = Split(tablo(n, 1), ":")(1)
Next
Range("A1").Resize(dico.Count) = Application.Transpose(dico.keys)
Range("B1").Resize(dico.Count) = Application.Transpose(dico.items)
End Sub