Suppression de certains onglets

[Lighter]

Bonjour à tou(te)s
Je tourne en rond pour obtenir le code qui me permet de supprimer systèmatiquement les onglets ayant pour nom "Feul1", "Feuil2" etc...
J'aimerai pouvoir supprimer systèmatiquement à l'ouverture de mon fichier tous les onglets commençant par "Feuil" et ne conserver que les autres.
D'avance merci pour votre aide toujours efficace.
Bonne journéé

 

[laetitia90]

Re : Suppression de certains onglets

bonjour Lighter

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
Application.DisplayAlerts = False
If ws.Name Like "Feuil*" Then ws.Delete
Application.DisplayAlerts = True
Next ws
End Sub

 

[Lighter]

Re : Suppression de certains onglets

Laetitia, c'est magnifique, merci infiniment,