bonjour,

voila mon probleme et que je souhaite en debut de macro supprimer toutes les feuille si presente qui ont un nom commencant par test.
j'ai fait un code mais il ne fonctionne pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
i = 0
For Each sh In Sheets
Select Case sh.Name
Case nom
Application.DisplayAlerts = False
sh.Delete
Application.DisplayAlerts = True
End Select
i = i + 1
nom = "test N° " & i
Next
merci d'avance pour votre aide