Private Sub ComboBox1_Change()
Dim Col&
Col = Feuil4.Cells(ComboBox1.ListIndex + [mois].Row, 2)
With Sheets("Agenda")
Application.ScreenUpdating = False
.Columns("A:EM").Hidden = True
Cells(1, Col).Resize(, 10).EntireColumn.Hidden = False
Application.ScreenUpdating = True
Range("A1").Select
End With
End Sub