Private Sub Worksheet_Change(ByVal Target As Range)
Dim appro As Integer
Dim sortie As Integer
Application.ScreenUpdating = False
If Not Intersect(Target, Range("E1")) Is Nothing Then
If Target.Value <> "" Then
For appro = 12 To 22
If Cells(1, appro).Value = Target.Value Then
Cells(1, appro).Columns.Hidden = False
Else
Cells(1, appro).Columns.Hidden = True
End If
Next appro
For sortie = 23 To 32
If Cells(1, sortie).Value = Target.Value Then
Cells(1, sortie).Columns.Hidden = False
Else
Cells(1, sortie).Columns.Hidden = True
End If
Next sortie
Else
Columns("L:AF").Hidden = False
End If
End If
Target.Select
Application.ScreenUpdating = True
End Sub