Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Sheets(Array("feuil1", "feuil2")).Select ' nom des feuille à spécifier
With ActiveSheet
Range("d:v").EntireColumn.Hidden = True 'nom des colonnes à spécifier
End With
ActiveWorkbook.Save
End Sub