Erreur d'exécution '9' Ca veut dire quoi ?

Bonjour à tous.
Je me lance dans VBA, et j'ai un problème de compilation : Erreur d'exécution '9' l'indice n'appartient pas à la sélection.
Voilà la ligne en cause.
" Me.CmbHeure1.RowSource = "listes!B1:B" & Sheets(listes).Cells(2, 1).End(xlDown).Row"
C'est une partie de code pour une liste déroulante

J'arrive pas à isoler le problème... En pièce jointe vous trouverez le programme ( il en est à son début)

A si, une autre question : Est ce que l'on a le droit en VBA d'appliquer une fonction appelant une autre case de la manière suivante :
'Sheets("Travail").Cells(2, i) = TEXTE(Sheets("Travail").Cells(3, i);"jjjj")'
Le but de cette ligne étant d'extraire le jour d'une date.

Merci beaucoup pour l'aide que vous pourrez m'apporter.
A bientôt
Arnaud

PS : je ne peut pas mettre mon fichier en pièce jointe : trop gros. Demander le mois si vous en avez besoin à arnaud.debrux@ENLEVEZCECIwanadoo.fr