Listbox Excel 2000

Bonjour,

J'essaye de creer une listbox sur ma fiche Excel afin qu'elle m'affiche les noms des feuilles du classeur... je connais le code (qui m'a été donné par un ami).

Le problème est lorsque je crée une nouvelle listbox de la manière suivante : options de barre d'outils=> Ajouter/suprimer bouton=>personnaliser=>formulaire=>zone de liste et un bouton options de barre d'outils=> Ajouter/suprimer bouton=>personnaliser=>formulaire=>Bouton comment puis je leur affecté les macros suivantes :

Private Sub ComboBox1_Change()
SheetName = ComboBox1.Value
If Not (IsEmpty(SheetName)) Then
Sheets(SheetName).Select
End If
End Sub

Private Sub CommandButton1_Click()
ComboBox1.Clear
sheetsnumber = Sheets.Count
For i = 1 To sheetsnumber
ComboBox1.AddItem Sheets(i).Name
Next
End Sub

J'ai essayé click droit/affecté une macro mais j'ai un problème d'objet lorsque je lance la macro...
Quelqu'un peut m'aider svp??

Merci par avance