Fonction vba

Bonjour,

je viens de commencer sur Vba et j'avais une question.
Jai écrit un code. ( Ecrivez une fonction Range To Vector, prenant pour argument une variable plage donnees de type Range, qui permet de transformer les donn´ees transmises en un vecteur ligne (variable tableau uni-dimensionnelle), la premi`ere cellule du vecteur contenant la valeur de la premi`ere cellule de la plage, la deuxi`eme cellule du tableau la valeur de la deuxi`eme cellule de la plage, )

Function Range_To_Vector (plage_donnees)
[/download/telecharger-34086571-redim ReDim] x(1, plage_donnees.Row.Count) As Double
For i= 1 To plage_donnees.Row(i)
    x(1, i)= plage_donnees.Row(i)
Next i
Range_To_Vector = x
End function

Mais ca marche pas, je sais pas pk. Est ce que vous pouvez m'aider