Liste modifiable dans une USF posant problème !!!

Bonjour le forum,

J'ai un problème avec une liste déroulante dans une USF :

Voici le code que j'utilise :

Private Sub Newetat_DropButtonClick()
Worksheets("liste").Select
Newetat.RowSource = "B1:" & Range("B1").End(xlDown).Address
End Sub


Quand je clique sur ma liste déroulante, windows NT m'affiche un message d'erreur, erreur d'apllication (violation des acces )

Savez vous de quoi ceci peut venir ??

Sinon, connaissez vous une autre syntaxe que je pourrais utiliser pour faire une liste déroulante dans ma USF ??

Merci d'avance
Bonne journée à tous
Salutations
Christophe 🙂