Masquer une colonne en fct d'une valeur

Bonsoir,

Cette macro fonctionne très bien pour une feuille
Elle cache chacune des Colonnes contenant ok (ou OK) dans la ligne 10.

Par contre pour deux feuilles, cela ne va pas.
Avez vous une idée
A+

Sub test()🙂
With Sheets("Feuil1").Select

Dim Cel As Range
Do
* * Set Cel = Rows(10).SpecialCells(xlCellTypeVisible).Find("ok")
* * If Cel Is Nothing Then
* * * * Exit Sub
* * Else
* * * * Columns(Cel.Column).Hidden = True
* * End If
Loop
End Sub
__________________________________________________________

Sub test()😕
With Sheets("Feuil1").Select

Dim Cel As Range
Do
Set Cel = Rows(10).SpecialCells(xlCellTypeVisible).Find("ok")
If Cel Is Nothing Then
Exit Sub
Else
Columns(Cel.Column).Hidden = True
End If
Loop

With Sheets("Feuil2").Select

Dim Cel As Range
Do
Set Cel = Rows(10).SpecialCells(xlCellTypeVisible).Find("ok")
If Cel Is Nothing Then
Exit Sub
Else
Columns(Cel.Column).Hidden = True
End If
Loop

End Sub