Private Sub ToggleButton1_Click()
Range("15:21,29:42,50:56,57:84,92:119,127:154,162:168").EntireRow.Hidden = ToggleButton1
End Sub
Private Sub ToggleButton2_Click()
Masque 3, 500, "=1/(R13C<>""ACO"")", ToggleButton2
End Sub
Private Sub ToggleButton3_Click()
Masque Range("C1").Column, Range("NC1").Column, "=1/(R11C>34)", ToggleButton3
End Sub
Private Sub ToggleButton4_Click()
Masque 3, 500, "=1/(R9C<NOW())", ToggleButton4
End Sub
Private Sub ToggleButton5_Click()
Range("15:49,57:161").EntireRow.Hidden = ToggleButton5
End Sub
Private Sub ToggleButton6_Click()
Masque 3, Cells(10, 500).End(xlToLeft).Column, "=1/(R24C<R23C)", ToggleButton6
End Sub
Sub Masque(col1%, col2%, formule$, bouton As ToggleButton)
Application.ScreenUpdating = False
Rows(1).Insert
With Range(Cells(1, col1), Cells(1, col2))
.FormulaR1C1 = formule
On Error Resume Next 'si aucune SpecialCell
.SpecialCells(xlCellTypeFormulas, 1).EntireColumn.Hidden = bouton
End With
Rows(1).Delete
End Sub