erreur decontatenation : erreur d'execution 5 kesako ?

Bonjour à tous,

j'ai récupéré cette macro sur l'excellent site de Boisgontier, elle permet de spliter une colonne en plusieurs (3) via un caractére "-"

le soucis c'est que le fichier en lui même fonctionne avec la macro (ca parait bizarre comme formulation je l'admets)
mais une fois copié dans mon fichier , plus rien ne va....alors que je n'ai rien modifié
j'ai en retour une erreur d'execution 5 (en regardant l'aide excel je suis encore plus paumé ...) sur la zone :
result(i, 1) = Left(result(i, 1), Len(result(i, 1)) - 1)
une idée ?

Sub essai2()
n = [A65000].End(xlUp).Row
a = [A2].Resize(n).Value
Dim result()
ReDim result(1 To n, 1 To 3)
For i = 1 To n
temp = "-"
b = Split(a(i, 1), "-")
J = 1: témoin = True
Do While J <= UBound(b) And témoin
If Not IsNumeric(b(J)) Then temp = temp & b(J) & "-": J = J + 1 Else témoin = False
Loop
result(i, 1) = Mid(temp, 2)
If J = UBound(b) + 1 Then result(i, 1) = Left(result(i, 1), Len(result(i, 1)) - 1)
If J < UBound(b) Then result(i, 2) = b(J)
If J + 1 <= UBound(b) Then result(i, 3) = b(J + 1)
Next i
[B2].Resize(n, 3).Value = result
End Sub