Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$24" Or Target.Count > 1 Then Exit Sub
n = [choix_actuel]
With Sheets("A-1")
Select Case n
Case 1 To 5
.Columns("H:FZ").Hidden = True
x1 = (n * 30) - 22
x2 = (n * 30) + 6
.Range(.Columns(x1), .Columns(x2)).Hidden = False
For x3 = 1 To 5
.Columns(x3 * 5 + 152 + n).Hidden = False
Next
Case 6
.Columns("H:FZ").Hidden = False
End Select
End With
End Sub