liste déroulant (VBA)

Bonjour,

J'ai mis le code ci-dessous qui me permets d'avoir une liste déroulant dans un userform:

Private Sub userform_initialize()

ComboBox1.AddItem ('intelligent')
ComboBox1.AddItem ('curieux')
ComboBox1.AddItem ('remarquable')
ComboBox1.AddItem ('bizarre')
ComboBox1.AddItem ('louche')
ComboBox1.AddItem ('changeant')
ComboBox1.AddItem ('lunatique')

End Sub

Mon problème c'est que dans une boîte de dialogue, j'ai besoin de dupliquer ce code sur plusieurs userform mais il m'indique une erreur si je le fait.

Pouvez-vous m'aider?

Merci
Jerems