Bonjour,

Je voudrais supprimer toutes les worksheets existantes après une Worksheet nommée "ABC".

J'ai pour l'instant le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub DeleteSheets()
 
For Each Worksheet In Worksheets
If (Worksheet.Name <> "AAA" Or Worksheet.Name <> "BBB" Or Worksheet.Name <> "CCC" Or Worksheet.Name <> "ABC") Then
Worksheet.Delete
End If
Next
 
End Sub
Le code ne fonctionne pas très bien et je trouve ca un peu rigide.

Comment pourrais-je faire?

Merci beaucoup

B.