Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C2:C3")) Is Nothing Then Exit Sub
On Error Resume Next
Columns("D:PZ").Hidden = False
ColDeb = Range("D6:NE6").Find(Format(Range("C2"), "d.m"), , xlValues, xlWhole).Column
ColFin = Range("D6:NE6").Find(Format(Range("C3"), "d.m")).Column
ColSup = Range("NF6:PZ6").Find(Format(Range("C2"), "mmm")).Column
Union(Columns("D:NE"), Columns("NG:PZ")).EntireColumn.Hidden = True
Range(Cells(1, ColDeb), Cells(1, ColFin)).EntireColumn.Hidden = False
Columns(ColSup).Resize(, 5).Hidden = False
End Sub