Sub MasquerColonnes()
Dim C As Byte
Dim D1 As Date, D2 As Date
Static Masque As Boolean
Application.ScreenUpdating = False
With ActiveSheet
If Masque Then
'Réafficher tout
.Cells.EntireColumn.Hidden = False
Else
'Afficher le mois à venir
D1 = Date
D2 = DateAdd('m', 1, D1)
For C = 10 To 190
Select Case .Cells(2, C).Value
Case D1 To D2
.Cells(1, C).EntireColumn.Hidden = False
Case Else
.Cells(1, C).EntireColumn.Hidden = True
End Select
Next C
End If
End With
Masque = Not Masque
Application.ScreenUpdating = True
End Sub