Salut,
J'ai eu le même problème à gérer et voilà ce que j'ai fait : Toutes les feuilles que je ne voulais pas voir apparaitre dans ma liste, je les masquai :
Private Sub UserForm_Initialize()
sheets("feuil1).visible=false
For i = 1 To Sheets.Count
If Sheets(i).Visible = True Then ComboBox1.AddItem (Sheets(i).Name)
Next i
'on peut éventuellement les réafficher en fin de procédure
sheets("feuil1).visible=true
End Sub
J'espère que ça te convient .
Bon week-end