Combobox et onglet

bonjour a tous

j'ai mon code pour récupérer le nom de mes onglets et sélectionner la feuille mais je bloque sur le fait de ne pas prendre en compte dans mon combobox l'onglet "Base"

auriez vous une idée?

Private Sub UserForm_Initialize()

Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Sheets
        ComboBox1.AddItem ws.Name
    Next
End Sub

et le code pour sélectionner la feuille

Private Sub ComboBox1_Click()
Dim Feuille As String
    Feuille = ComboBox1.Value
    Worksheets(Feuille).Select
End Sub

Merci de votre aide

Probleme résolu

Private Sub UserForm_Initialize()
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Sheets
    If ws.Name <> "Base" Then
        ComboBox1.AddItem ws.Name
        End If
    Next
End Sub