Sub Masquer()
Application.ScreenUpdating = False
Dim Cel As Range
Cells.EntireColumn.Hidden = False
For Each Cel In Range("J2:EXX2")
If Cel < Range("D1").Value Then Cel.Columns.Hidden = True
If Cel > Range("E1").Value Then Cel.Columns.Hidden = True
Next Cel
Application.ScreenUpdating = True
End Sub