For Each Cel In .Range("E9:E13,E15:E28,E37:E41,E43:E56,E65:E69,E71:E84,E93:E97,E99:E112")
Sub Test_Macro()
Dim Cel As Range
With ActiveSheet
For Each Cel In .Range("E9:E13,E15:E28,E37:E41,E43:E56,E65:E69,E71:E84,E93:E97,E99:E112")
If Cel = "" Then Cel.EntireRow.Hidden = True
Next Cel
End With
End Sub
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Cel As Range
On Error Resume Next
With ActiveSheet
For Each Cel In .Range("E9:E13,E15:E28,E37:E41,E43:E56,E65:E69,E71:E84,E93:E97,E99:E112")
If Cel = "" Then Cel.EntireRow.Hidden = True
Next Cel
End With
End Sub
Sub AfficheMasque()
Columns.EntireColumn.Hidden = Not Columns.EntireColumn.Hidden
Rows.EntireRow.Hidden = Not Rows.EntireRow.Hidden
End Sub