Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$11" Then
Cells.EntireColumn.Hidden = False
Dercol = Range("A11").SpecialCells(xlCellTypeLastCell).Column
For I = 4 To Dercol
Columns(I).EntireColumn.Hidden = Not Month(Cells(11, I)) = Month("1/" & Range("B11"))
Next I
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$11" Then
Cells.EntireColumn.Hidden = False
Dercol = Range("A11").SpecialCells(xlCellTypeLastCell).Column
If Target = "TOUS" Then
Cells.EntireColumn.Hidden = False
End
End If
For I = 4 To Dercol
Columns(I).EntireColumn.Hidden = Not Month(Cells(11, I)) = Month("1/" & Range("B11"))
Next I
End If
End Sub