Code VBA pour cacher des colonnes

Bonjour,

je suis à la recherche d'un code pour créer une macro faisant l'opération suivante :

Contrôler les valeurs contenues dans chaque cellule d'une ligne donnée.

Si une cellule contient le texte "OK" alors cacher la colonne entière.

J'ai trouvé le code ci-dessous, permettant de réaliser une opération similaire sur des lignes, mais je n'arrive pas à le retravailler pour faire ce que je souhaite :

Sub HideRows()

BeginRow = 1

EndRow = 100

ChkCol = 3

For RowCnt = BeginRow To EndRow

If Cells(RowCnt, ChkCol).Value < 5 Then

Cells(RowCnt, ChkCol).EntireRow.Hidden = True

End If

Next RowCnt

End Sub

Pouvez-vous m'aider?

Merci d'avance,

Bonjour Aramis06

si j'ai bien compris

ChkRow = 23 est le nombre de lignes a scruter

a modifier selon besoin

cordialement

Bob

Bonjour et bienvenue,

ici, balaye la ligne de la cellule active, de la colonne 1 à 30

Sub MasqueCol()
'Macros par Claude Dubois pour "Aramis06" Excel-Pratique le 21/03/10
Dim Lg%, i As Byte
Lg = ActiveCell.Row
    For i = 1 To 30
        If Cells(Lg, i) = "ok" Or Cells(Lg, i) = "OK" Then _
        Columns(i).Hidden = True
    Next i
End Sub

Amicalement

Claude