Salut,
tu trouveras ci-dessous un petit code qui lira tout ton classeur et supprimera les feuilles inutiles. Il y a certainement plus propre mais c'est efficace...
Sub Suppr_Feuilles()
Dim i As Integer
BoucleSuppr:
'pour toutes les feuilles du classeur
For i = 1 To ThisWorkbook.Worksheets.Count
'si la cellule A2 est vide
If IsEmpty(Sheets(i).Range("A2")) Then
on sélectionne la feuille, on enlève l'alerte Excel et on la supprime
Sheets(i).Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
'on retourne ensuite en haut pour éviter de sélectionner une feuille inexistante (car si on en supprime, il y en a moins qu'au départ)
GoTo BoucleSuppr
End If
Next i
End Sub
Voilà, j'espère que cela peut t'aider.
Note : si tu veux éviter de regarder ta première feuille, modifie la ligne ci-dessous comme telle :
If IsEmpty(Sheets(i).Range("A2")) and i>1 Then
Clément
"S'il n'y a pas de solution, c'est qu'il n'y a pas de problème." (devise Shadock)