Listbox onglet

bonjour ,

j'ai un listbox dans lequel la macro ci dessous affiche tous les onglets du classeur

serait il possible d'y mettre une exeption , par exemple ne pas y inclure la "Feuil1" et la "Feuil2"

merci de votre aide

cordialement

Private Sub UserForm_Activate()

Dim i As Integer

UserForm1.ListBox1.Clear ' vider la listbox

UserForm1.ListBox1.MultiSelect = fmMultiSelectMulti 'fmMultiSelectExtended ' autoriser sélection multiple

For i = 1 To Worksheets.Count 'pour chaque feuille

UserForm1.ListBox1.AddItem Worksheets(i).Name ' ajouter son nom à la listbox

Next i

End Sub

Bonjour

Méthode

Private Sub UserForm_Activate()
Dim i As Integer
  UserForm1.ListBox1.Clear ' vider la listbox
  UserForm1.ListBox1.MultiSelect = fmMultiSelectMulti 'fmMultiSelectExtended ' autoriser sélection multiple
  For i = 1 To Worksheets.Count 'pour chaque feuille
    If Sheets(i).Name <> "Feuil1" And Sheets(i).Name <> "Feuil2" Then
      UserForm1.ListBox1.AddItem Worksheets(i).Name ' ajouter son nom à la listbox
    End If
  Next i
End Sub

parfait Banzaï

merci de ton aide

cdt