Menu déroulant

Bonjour steph1605

avec ces deux procédures, tu devrais t'en sortir.

Option Explicit
Private Sub ListBox1_Click()
ThisWorkbook.Sheets(ListBox1.Value).Activate
End Sub

Cliquez pour agrandir...

Private Sub Worksheet_Activate()
        Dim vrtFeuille                As Variant, Item                As Variant
       
        With ListBox1
                If Not .Value = Empty Then
                        .Selected(0) = True
                        Do While .ListCount > 0
                                .RemoveItem (.ListIndex)
                        Loop
                Else
                        For Each vrtFeuille In ThisWorkbook.Sheets
                                .AddItem vrtFeuille.Name
                        Next vrtFeuille
                End If
        End With
        ThisWorkbook.Sheets(1).Activate
End Sub

Cliquez pour agrandir...

[file name=classeur1_20050925211109.zip size=11151]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/classeur1_20050925211109.zip[/file]