VBA Exel Ecrire une liste

Bonjour,


Voila mon pb, je voudrais écrire une finction VBA que j'appellerai depuis ma feuilles pour qu'elle écrive une liste de nombre, voici la fonction que j'ai écrirt :

ublic Function toto() As Integer
Dim i As Integer
Dim Feuille As Worksheet

Set Feuille = Application.ActiveSheet
For i = 1 To 10
Feuille.Cells(i, 1).Value = i
Next

toto = 0

End Function

Cette fonction devrait écrire dans la feuille active dans la première colonne, une liste de 1à10 de nombres. Mais quand je fais l'appel sur la feuille Excel en mettant " =toto() " , ça me donne #Valeur !

Quelqu'un pourrait m'aider ! Merci