Private Sub Worksheet_Change(ByVal Target As Range)
Dim FeMag As Worksheet
Dim T
Dim Adr As String
Set FeMag = Worksheets("MAGASINS")
If Target.Address(0, 0) <> "B4" Then Exit Sub
Adr = Choose(Target.Value, "H:AN,H:AN", "E:G,K:AN", "E:J,M:AN", "E:M,Q:AN", "E:P,T:AN", "E:S,W:AN", _
"E:V,Z:AN", "E:Y,AC:AN", "E:AB,AF:AN", "E:AE,AI:AN", "E:AH,AL:AN", "E:AK,E:AK")
T = Split(Adr, ",")
FeMag.Columns("E:AN").EntireColumn.Hidden = False
On Error Resume Next
FeMag.Columns("E:AN").Columns.Ungroup
On Error GoTo 0
FeMag.Columns(T(0)).Columns.Group: FeMag.Columns(T(0)).EntireColumn.Hidden = True
FeMag.Columns(T(1)).Columns.Group: FeMag.Columns(T(1)).EntireColumn.Hidden = True
End Sub