VBA - code non fonctionnel si la colonne est masquée

Hello la compagnie

je suis confronté à un problème pour lequel je n'arrive pas à me dépatouiller.

Je cherche a masquer des lignes en fonction des valeurs des cases d'une colonne: en gros si la case contient "0" je masque.

J'utilise ce code:

Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Dim R As Range, C, b
If CheckBox_OCR.Value = True Then
    For Each C In R_OCR
        If C.Text = "0,0" Then
            If R Is Nothing Then
            b = C.EntireRow.Hidden
            Set R = C
            End If
        Set R = Union(R, C)
        End If
    Next
        If Not R Is Nothing Then R.EntireRow.Hidden = Not b
End If
Application.ScreenUpdating = False
End Sub

Si la colonne contenant mon Range "R_OCR" est visible, cela fonctionne nickel.

Mais je masque ou je mets la largeur à 0 pour cette colonne, alors cela ne fonctionne plus....

Comment contourner ce problème?

Merci

Bonjour

Remplace le false par True

End If
Application.ScreenUpdating = False
End Sub

Hello

C'était une faute de frappe de ma part. J'ai bien SrceenUpdating sur false en debut de sub et sur True en fin de sub.

De plus si je vire complètement le screenupdating, cela ne change rien.... et cela fait lagger l'affichage car j'ai environ 700 lignes qui sont balayées