Bonjour,

j'ai bidouillé à partir de scripts récupérés sur le forum cette macro pour supprimer les feuilles inutiles dans mon classeur
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Sub supprimer_feuille_inutiles()
Dim Ws As Worksheet
Application.DisplayAlerts = False
    'Boucle sur toutes les feuille de calcul du classeur.
    For Each Ws In ThisWorkbook.Worksheets
        If Not (Ws.Name = "donnees") Then
        ActiveSheet.Delete
        End If
    Next Ws
End Sub
malheuresement, elle ne supprime pas toutes les feuilles.
Avant

Après 3 éxécutions de la macro


Il faut donc que je l'exécute plusieurs fois pour arriver à mes fins.

Savez vous pourquoi elle ne marche pas du premier coup.

Merci beaucoup,
Guillaume