Sub Masquer()
Dim i As Long, DerCol As Long
Application.ScreenUpdating = False
DerCol = Range("XFD1").End(xlToLeft).Column
For i = DerCol To 1 Step -1
If Cells(1, i) <> 2 Then Columns(i).Hidden = True
Next i
End Sub
Sub Demasquer()
Dim i As Long, DerCol As Long
Application.ScreenUpdating = False
DerCol = Range("XFD1").End(xlToLeft).Column
For i = DerCol To 1 Step -1
Columns(i).Hidden = False
Next i
End Sub