Sélectionner plusieurs feuilles à masquer dans une ListBox

Bonsoir,

J'ai un UserForm dans lequel il y a une ListBox pour sectionner les feuilles à imprimer.

Je souhaiterai que certaine feuille ne soit pas visible dans la ListBox.

En sachant, que dans l'original du projet il y aura 5 à 6 Feuilles à masquer.

Ce code ci-dessous masque la feuille index.

Private Sub UserForm_Initialize()
Dim S As Worksheet
ListBox1.MultiSelect = fmMultiSelectExtended
For Each S In Worksheets
If Not S.Name = "Index" Then
ListBox1.AddItem S.Name
End If
Next
TextBox1 = 0
End Sub

Je ne trouve pas de code pour masquer plusieurs feuilles à la suite.

J’aurais besoin de votre aide.

Je vous remercie par avance.

Bonjour,

à tester,

ps/ j'ai ajouté 2 feuilles masquées ("Feuil1" et "Feuil2") pour faire le test

Private Sub UserForm_Initialize()
Dim S As Worksheet
sh = Array("Index", "Feuil1", "Feuil2")
ListBox1.MultiSelect = fmMultiSelectExtended
For Each S In Worksheets
t = Application.Match(S.Name, sh, 0)
    If IsError(t) Then
        ListBox1.AddItem S.Name
    End If
Next
TextBox1 = 0
End Sub

Bonjour i20100,

Merci ça fonctionne parfaitement.

Encore merci.