Sub Masque()
Application.ScreenUpdating = False
For L = 7 To 100
If Rows(L).Hidden = True And Cells(L, "C") <> "" Then ' Si ligne masquée
Rows(L & ":" & L - 2).Hidden = False
Exit Sub
End If
Next L
End Sub
Sub Demasque()
Application.ScreenUpdating = False
For L = 100 To 7 Step -1
If Rows(L).Hidden = False And Cells(L, "C") <> "" Then ' Si ligne masquée
Rows(L & ":" & L - 2).Hidden = True
Exit Sub
End If
Next L
End Sub
Sub MasqueTout()
Application.ScreenUpdating = False
Rows(7 & ":" & 1000).Hidden = True
End Sub
Sub DemasqueTout()
Application.ScreenUpdating = False
Rows(7 & ":" & 1000).Hidden = False
End Sub