VBA vecteur en argument

Bonjour,

Je débute en VBA et pour m'entrainer j'ai décidé de commencer par un algo classique: le bubblesort auquel j'envoie un vecteur et qui me le renvoie trié par ordre croissant. trouver la sol sur internet est facile mais je ne comprends pas mon erreur.

Voici mon code qui me renvoie des #valeur!


Function bubblesort(vecteurarg) ' prend un vecteur et range par ordre croissant

Dim i, j, n As Integer
Dim vectbis() As Double 'vecteur où je vais copier des valeurs
vectcopy = vecteurarg

n = UBound(vectcopy, 1)
ReDim vectbis(n) As Double


For j = n - 1 To 1 Step -1

For i = 1 To j

If (vectcopy(i) < vectcopy(i + 1)) Then
vectbis(i) = vectcopy(i)
vectcopy(i) = vectcopy(i + 1)
vectcopy(i + 1) = vectbis(i)
End If

Next i

Next j

bubblesort = vectcopy

End Function


Merci d'avance à celui ou ceux qui pourront m'éclairer. pour leur temps