Macro pour masquer des colonnes

Bonjour voici une macr pour masquer les lignes selon un critere qui marche tres bien .

Rows("14:47").Select
Selection.EntireRow.Hidden = True
Range("G14:G47").Select
For Each o In Selection
If o.Value = Range("F9").Value Then
o.EntireRow.Hidden = False
End If
Next

j'essaye desesperement de transformer cette Macro pour masquer des colonnes cette fois ci toujours selon un critère... mais ca marche pas !!

Columns("S:IH").Select
Selection.EntireColumn.Hidden = True

Range("S7:IH7").Select
For Each o In Selection
If o.Value = Range("P5") Then
o.EntireColumn.Hidden = False
End If
Next
End Sub

Je ne comprends pas ou le pb. il bloque là : Selection.EntireColumn.Hidden = True

Merci de votre aide