Bonjour,
Une proposition
Sub Scinder()
Dim Cel As Range
With Worksheets("Feuil1")
For Each Cel In .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)
Cel.Offset(0, 1).Value = Split(Cel, ":")(0)
Cel.Offset(0, 2).Value = Split(Cel, ":")(1)
Next Cel
End With
End Sub
A+