Entrer une série de dates

Bonjour,
Je croyais avoir posté cela hier, mais apparemment cela n'a pas marché. Voici mon message !

Dans un tableau qui démarre à la cellule B10, je cherche à renseigner la première ligne (10) avec une série de dates consécutives à partir de la cellule C10. La date de début figure en A1 et la date de fin en A2.
J'ai créé la procédure suivante, qui ne marche pas (il ne se passe rien quand je la lance) :

Sub Macro1()

Dim date1 As Date, date2 As Date

date1 = Range("A1").Value
date2 = Range("A2").Value


For i = 0 To (date2 - date1)
Range("C10" & (1 + i)).Value = date1 + i
Next

End Sub

Quelqu'un peut-il m'aider ?

Dans l'idéal, j'aimerais avoir un bouton "Saisie des dates" qui ouvrirait une boîte où l'on saisirait la date de départ et la date de fin, ce qui renseignerait la ligne de dates. Mais ceci est largement au-dessus de mes capacités !!

Je peux envoyer le fichier, si nécessaire.
Merci d'avance,
Majanian