Séparer une chaine de caractère

Function toto(x)
    toto = Split(x, ":", 2)
End Function

Function tutu(x)
Dim tmp
    tmp = Split(x, ":", 2)
    If UBound(tmp) < 1 Then tmp = Array("", "")
    tutu = tmp
End Function

Function tata(x)
Dim tmp
    tmp = Split(x, ":", 2)
    If UBound(tmp) > 0 Then tmp(1) = " :" & tmp(1) Else tmp = Array("", "")
    tata = tmp
End Function

Sub gaga()
Dim i&, Plg As Range, s(), Tmp
    Set Plg = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
    ReDim s(1 To Plg.Count, 1)
    For i = 1 To Plg.Count
        Tmp = Split(Plg(i), ":", 2)
        s(i, 0) = Tmp(0)
        s(i, 1) = Tmp(1)
    Next
    Plg.Offset(0, 1).Resize(, 2).Value = s
End Sub

Private Sub CommandButton1_Click()
    gaga
End Sub

Sub Macro1()
' Macro enregistrée le 21/07/2012 par Staple1600
'Bien sûr faire les adaptations nécessaires pour les plages de données
'ici j'avais mis des données de  test en A1:A26
    Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="(", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
    Range("D1:D26").Select
    Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :=":", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
    Range("D1").FormulaR1C1 = "=RC[-1]&"" (""&RC[1]"
  Range("D1").AutoFill Destination:=Range("D1:D26")
    Range("D1:D26").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("C:C").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Columns("D:D").Select
    Selection.Delete Shift:=xlToLeft
End Sub