Sub SelectMois()
Dim Plage$
With Worksheets('Feuil1')
.Columns('A:AV').EntireColumn.Hidden = False
Select Case Range('X1').Value
Case 'JANVIER': Plage = 'M:W,AA:AO'
Case 'FEVRIER': Plage = 'L:L,N:W,Z:Z,AB:AO'
'Case ....
Case 'DECEMBRE': Plage = 'L:V,Z:AJ,AL:AO'
End Select
'test final pour ne pas renvoyer d'erreurs...
If Not Plage = '' Then .Range(Plage).EntireColumn.Hidden = True
End With
End Sub