Sub Macro5()
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets(Array("Lisez-moi", "Sélection étapes")).Select
Sheets("Sélection étapes").Activate
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets(Array("Lisez-moi", "Sélection étapes", "Synthèse PRPo", "Synthèse CCP", _
"Plan d'action dang. à maîtriser", "Plan d'action dang. à éliminer", _
"Planning investissements")).Select
Sheets("Synthèse PRPo").Activate
ActiveWindow.SelectedSheets.Delete
ActiveWindow.SmallScroll Down:=-52
Range("T6").Select
ActiveWindow.SmallScroll Down:=-12
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
End Su