Re : suppression feuilles
Merci pour vos réponses,
Malheureusement si le code ne me fait pas d'erreur, il ne me supprime pas les feuilles visées
Voici un morceau de mon code qui ajoute et renomme les feuilles
Dim ListSh() As Variant
ListSh = Array("DKLU-K", "CKL-CZ", "ELYO1", "ELYO2", "ELYO3", "AM-AT", "DM-D-0", "DM-D-1", "DM-D-2", "DM-D-3", "DM-D-4", "DM-D-5", "DM-D-6", "DM-D-7", "DM-D-8", "DM-D-9", _
"PM-PL2", "SPSE", "NTNO")
For i = LBound(ListSh) To UBound(ListSh)
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = ListSh(i)
Next
Sheets("Feuil1").Name = "originale"
Sheets("originale").Activate