Private Sub UserForm_Initialize()
Dim sh&
For sh = 1 To Sheets.Count
If Not Sheets(sh).Visible Then ListBox1.AddItem Sheets(sh).Name
Next sh
End Sub
Private Sub ListBox1_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
Sheets(ListBox1.Value).Visible = True
'Unload Me 'en commentaire sinon on ne voit rien...
End Sub
Private Sub UserForm_QueryClose(cancel As Integer, closemode As Integer)
Dim i&
For i = 0 To ListBox1.ListCount - 1
Sheets(ListBox1.List(i, 0)).Visible = xlVeryHidden
Next
End Sub