Private Sub ComboBox1_Change()
Dim dat&, col1 As Variant, col2%
Application.ScreenUpdating = False
Rows(4).UnMerge: Rows(4).ClearContents 'RAZ
Columns.Hidden = False
If ComboBox1.ListIndex = -1 Or ComboBox2.ListIndex = -1 Then Exit Sub
dat = CLng(CDate("1 " & ComboBox1 & " " & ComboBox2))
col1 = Application.Match(dat, Rows(6))
If IsError(col1) Then Exit Sub
dat = DateSerial(Year(dat), Month(dat) + 1, 0)
col2 = Application.Match(dat, Rows(6))
Columns(2).Resize(, Columns.Count - 1).Hidden = True
Columns(col1).Resize(, col2 - col1 + 1).Hidden = False
With Cells(4, col1)
.Resize(, col2 - col1 + 1).Merge
.Value = "Période du " & Cells(6, col1) & " au " & Cells(6, col2)
End With
End Sub
Private Sub ComboBox2_Change()
ComboBox1_Change
End Sub