effacer des feuilles mais exclure certaines dans un combobox

[Jojo973]

Bonjour, j'ai un userform qui à son ouverture initialise une combobox où son répertoriées les noms des feuilles.
Par la suite, selon le choix, l'utilisateur pourra supprimer cette feuille. Mon problème est qu'il y a 4 feuilles qui ne doivent pas apparaître car elles servent de base de travail pour créer des feuilles personnalisées.
Voici le code :

Private Sub UserForm_Initialize()
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Sheets
        ComboBox1.AddItem ws.Name
    Next
End Sub

Par exemple, si je ne veux pas que les noms de la feuille "accueil" et "Cycle 1" n'apparaissent pas, comment dois-je implémenter le code. J'ai testé avec des conditions et "bof,bof"..😵
Merci

 

[phlaurent55]

Bonjour cyrikou,

voir fichier joint

à+
Philippe

 

[Jojo973]

Pétard! la simplicité est cruelle parfois ! merci beaucoup😉