Masquer des lignes sous une condition, en VBA

Bonjour,
je me permets d'ouvrir une nouvelle question bien que le problème du masquage de lignes sous conditions aie déjà été expliqué maintes fois.
Je me suis donc inspiré de ce que j'avais vu et ai fait un premier petit essai concluant:
dans une colonne je mets des noms, dans la seconde je mets parfois rien, et parfois "ok".
J'ai créé deux boutons : MASQUER et AFFICHER
en cliquant sur masquer, je masque les lignes contenant "ok" en cliquant sur afficher, je réaffiche le tout.
Pour cela voici ce que j'ai utilisé :

Sub MasquerLigne()
'masquer les lignes de programme nulles

For i = 5000 To 1 Step -1
If Cells(i, 4) = "ok" Then

Rows(i).Select
Selection.EntireRow.Hidden = True

End If
Next
End Sub


Sub afficher()

'
' Macro2 Macro
'

'
Rows("1:5000").Select
Selection.EntireRow.Hidden = False




End Sub

et là ça marche à merveille.
Mais lorsque je transpose cela dans mon "vrai" fichier, rien ne va plus !
Qu'ai-je fait ou pas pour que cela ne fonctionne plus ?
J'ai beau retourner cela dans tous les sens, je ne comprends pas.
L'un d'entre vous aurait il la gentillesse de m'aider ?
Je vais essayer de joindre mon fichier, mais je ne sais pas comment faire ...

donc, j'envoie et je vois après pour joindre le fichier.
D'avance un grand merci