Sub Macro4()
'
' Macro4 Macro
'
' Touche de raccourci du clavier: Ctrl+s
'
Sheets(Array("Lisez-moi", "Sélection étapes", "Dangers Ressource")).Select
Sheets("Dangers Ressource").Activate
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets(Array("Lisez-moi", "Sélection étapes", "Dangers Ressource", "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
End Sub