Scinder chaine de valeurs et copier vers des cellules distinctes

Dim Valeurs As Variant
Valeurs = Split(Range("A1").Text, "+")
Range("B1").Resize(UBound(Valeurs) + 1) = Application.Transpose(Valeurs)

Sub Macro()
Dim Valeurs As Variant
Valeurs = Split(Range("A1").Text, "+")
Range("B1").Resize(UBound(Valeurs) + 1) = Application.Transpose(Valeurs)
End Sub

Sub MacroTest()
Dim Valeurs As Variant, test
test = Array(1, 23, 456, 789, 1012)' ligne utile pour le test (a supprimer ensuite)
Range("A1") = Join(test, "+")' ligne utile pour le test (a supprimer ensuite)
Valeurs = Split(Range("A1").Text, "+")
Range("B1").Resize(UBound(Valeurs) + 1) = Application.Transpose(Valeurs)
End Sub