Liste déroulante vers onglets

Private Sub ComboBox1_Change()
On Error Resume Next
Sheets(CStr(ComboBox1.Value)).Activate
End Sub

Private Sub Worksheet_Activate()
Dim i
ComboBox1.Clear
For i = 1 To 12
ComboBox1.AddItem MonthName(i)
Next
End Sub

Private Sub Worksheet_Activate()

    Dim WS As Worksheet
    
    ComboBox1.Clear
    
    For Each WS In Worksheets
        'Si le nom de la feuille est différent de ces quatre noms alors
        If WS.Name <> "Menu" _
            And WS.Name <> "Main courante" _
            And WS.Name <> "Feuil1" _
            And WS.Name <> "Paramétrage" Then
            'Remplit la ComboBox avec le reste des feuilles
            ComboBox1.AddItem WS.Name
        End If
    Next
    
End Sub