Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
With Me.ListView1
NameWs = .ListItems(Item.Index)
' ou NameWs = Item.Text
Worksheets(NameWs).Select
End With
End Sub
Private Sub UserForm_Initialize()
With Me.ListView1
.ColumnHeaders.Add , , "Feuilles", .Width
.Gridlines = True
.MultiSelect = False
.ListItems.Clear
For Each Ws In Worksheets
.ListItems.Add , , Ws.Name
Next Ws
End With
End Sub