Macro pour masquer colonnes

Sub TrouveObjets()
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
MsgBox Sh.Name & " - " & Sh.TopLeftCell.Address
Next Sh
End Sub

Sub SupprimeComment()
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
if Sh.Name Like "Comment*" then sh.Delete
Next Sh
End Sub

Sub Clients()
'Columns("S:EP").Select
'Selection.Hidden = True
Application.ScreenUpdating = False
Range("S1:EO1").Select
For Each o In Selection
If o.Value = Range("P5") Then
o.EntireColumn.Hidden = False
Else
o.EntireColumn.Hidden = True
End If
Next
Rows("16:400").Select
Selection.EntireRow.Hidden = True
Range("L16:L400").Select
For Each o In Selection
If o.Value = "1" Then
o.EntireRow.Hidden = False
End If
Next
Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$P$5" Then
Application.ScreenUpdating = False
For i = 19 To 234 Step 8
    Cells(1, i).Resize(1, 8).EntireColumn.Hidden = IIf(Cells(14, i).Value <> [P5], True, False)
Next i
[L15].AutoFilter Field:=1, Criteria1:="1"
End If
End Sub