macro dans usf

Bonjour ,

j'ai créer un userform avec une listbox renseigner par une feuille (jusque la pas de problème).

Dans le usf je fais:

Private Sub ListBox1_Change()
Numeroarticle
End Sub

et là erreur 1004 alors que la macro 'numeroarticle' fonctionne correctement si je l'execute seule.

Début de la macro numeroarticle:

Application.ScreenUpdating = False
Sheets("Listes").Select
Range("G2").Select
Selection.ClearContents (plantage ici)

num = Range("c2").Text

etc....

merci