définition d'une variable objet "s" pour être puriste et ne pas avoir de souci au moment du bouclage sur la collection Worksheets (Feuilles de calcul)
définition d'une variable Tableau
mat=array("feuil1",feuil2") ......
d'autres infos dans les anciens messages
et notamment là <http://xlbysteph.free.fr/aideinformatique/actionvba2.htm>
application.displayalerts=false
avec cette instruction, excel n'affiche pas certains avertissements, comme celui qui informe qu'une feuille de calcul va êtr supprimé définitivement.
for each s in activeworkbook.worksheets
=> pour chaque objet s contenu dans la collection de feuilles de calcul
If IsError(Application.Match(s.Name, Mat, 0)) Then s.Delete
s.name => le nom de l'objet actuellement "lu" par la boucle
match correspond à la fonction equiv qui permet de retourner la position d'un élément dans une plage de cellules ou bien ici dans une variable tableau.
=> si le résultat de cette détermination est une erreur, alors la feuille s ne figure pas dans la liste on supprime la feuille