Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
ComboBox1.List = Array("tata", "toto", "titi")
End Sub
Private Sub ComboBox1_Click()
Sheets(ComboBox1.Text).Visible = 1
End Sub
Private Sub UserForm_Initialize()
ComboBox1.List = Feuil1.[D2].Resize(Feuil1.[D2].End(xlDown).Row - 1).Value
End Sub
Private Sub UserForm_Initialize()
For Each c In Sheets
If c.Visible = 2 Then ComboBox1.AddItem c.Name
Next
End Sub
Private Sub UserForm_Initialize()
Dim Sh As Worksheet
For Each Sh In Sheets
If Sh.Name Like "-*" Then ComboBox1.AddItem Sh.Name
Next
End Sub