onglet

[COLOR=blue]Option Explicit[/COLOR]
 
[COLOR=blue]Private Sub[/COLOR] CommandButton1_Click()
[COLOR=blue]Dim[/COLOR] I [COLOR=blue]As Integer[/COLOR]
[COLOR=blue]For[/COLOR] I = 0 [COLOR=blue]To[/COLOR] ListBox1.ListCount - 1
[COLOR=blue]If[/COLOR] ListBox1.Selected(I) [COLOR=blue]Then[/COLOR]
Sheets(ListBox1.List(I)).Visible = xlSheetHidden
ListBox1.Clear
UserForm_Initialize
[COLOR=blue]End If[/COLOR]
[COLOR=blue]Next[/COLOR] I
[COLOR=blue]End Sub[/COLOR]
[COLOR=blue]Private Sub[/COLOR] UserForm_Initialize()
[COLOR=blue]Dim[/COLOR] Feuille [COLOR=blue]As[/COLOR] Worksheet
[COLOR=blue]For Each[/COLOR] Feuille [COLOR=blue]In[/COLOR] ThisWorkbook.Worksheets
[COLOR=blue]If[/COLOR] Feuille.Visible = xlSheetVisible [COLOR=blue]Then[/COLOR]
ListBox1.AddItem Feuille.Name
[COLOR=blue]End If[/COLOR]
[COLOR=blue]Next[/COLOR]
[COLOR=blue]End Sub[/COLOR]

Me.TabStrip1.Visible = False