Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address(0, 0) = "E1" Then Exit Sub
Dim i As Long
Select Case Target.Value
Case "janvier"
For i = 1 To 20
If Not Cells(7, i).Value Like "JANVIER" Then
Cells(7, i).Columns.Hidden = True
End If
Next i
Case "février"
For i = 1 To 20
If Not Cells(7, i).Value Like "FÉVRIER" Then
Cells(7, i).Columns.Hidden = True
End If
Next i
Case "mars"
For i = 1 To 20
If Not Cells(7, i).Value Like "MARS" Then
Cells(7, i).Columns.Hidden = True
End If
Next i
'continuer ainsi our les autres mois
End Select