1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets(Array("Arborescence", "CONFIG", "BDD", "Feuil1")).Select
Sheets("Feuil1").Activate
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
'on supprime le code
With grille.VBProject.VBComponents("ThisWorkbook").CodeModule
.DeleteLines 1, .CountOfLines
End With
With grille.VBProject.VBComponents("Feuil1").CodeModule
.DeleteLines 1, .CountOfLines
End With
With grille.VBProject.VBComponents("Feuil10").CodeModule
.DeleteLines 1, .CountOfLines
End With |
Partager