Définition d'un nom

Bonjour le Forum,
Je souhaiterais définir une zone en appliquant un nom afin que je puisse l'utiliser dans une liste déroulante.
Cette zone est variable en fonction du nombre de lignes. J'ai donc dans un premier temps rechercher le nombre de lignes.
Puis je souhaiterais donner comme nom cette zone que je nomme "code". Mais ça ne fonctionne pas. Pouvez - vous m'aider ?

Ci joint le code

' Recherche de la derniére ligne dans la colonne "A"
derligne = Range("A65536").End(xlUp).Row

' Définition de la zone de la liste déroulante
code = Worksheets("sommaire").Range("A2:A" & derligne)

Merci par avance,

Hugues