Sub Menu()
'BOISGONTIER
Dim s As Integer
Me.ComboBox1.Clear
Me.ComboBox1.AddItem "--- ALLER À ---"
For s = 1 To ActiveWorkbook.Sheets.Count - 3
If Sheets(s).Name <> ActiveSheet.Name Then Me.ComboBox1.AddItem Sheets(s).Name
Next s
Me.ComboBox1.ListIndex = 0
End Sub