Bonjour,
Tu peux essayer :
Sub ....
...
Sheets("La Feuille à virer").Select
ActiveWindow.SelectedSheets.Delete
...
End Sub
Autre solution
Sub ...
...
Worksheets(2).Delete
...
End Sub
Dans le premier cas, tu peux remplacer "La feuille à virer" par une variable.
Dans le deuxième cas, Excel demande une confirmation.
Worksheets(2) désigne la deuxième feuille dans sa collection. Tu peux remplacer 2 par une variable.
Attention, si tu enregistres, tu perds les informations des feuilles qui ont été supprimées.
Si nécessaire, prévois un enregistrement de sauvegarde avant et vérifie qu'il n'y a pas de liaison avec les feuilles supprimées (je suppose que ce n'était pas le cas mais on sait jamais).
En espérant que ça te dépanne.
Abel