'# https://www.excel-downloads.com/threads/onglet-reconnu-ou-non.20018903/
Dim vRet As Variant
Dim J As Long
Dim FeuillesExclues()
FeuillesExclues = Array("Accueil", "Feuil1", "Feuil2")
NbSheets = Worksheets.Count
ReDim Arr(1 To NbSheets)
J = 1
For I = 1 To NbSheets
vRet = Application.Match(Worksheets(I).Name, FeuillesExclues, 0)
If IsError(vRet) Then
Arr(J) = Worksheets(I).Name
ListeDeroulanteCombinee.Onglets.AddItem Arr(J): J = J + 1
End If
Next I