Masquer lignes sous condition

Bonjour à tous

J'ai cherché un peu partout pour mon problème mais je ne n'arrive pas à appliquer les solutions

Je n'y connais rien en macro et codes.

Voilà mon problème

J'ai un tableau excel dans lequel je veux masquer les lignes dont la case F est égale à 0.

J'ai essayé ça :

Sub delete_ligne()

Dim i As Integer

Application.ScreenUpdating = False

For i = 1 To 53

If (Cells(i, 6) = 0) Then

Cells(i, 1).EntireRow.Delete

i = i - 1

End If

Next

Application.ScreenUpdating = True

End Sub

(trouvé sur un forum)

Ca marche mais le problème est que quand je change la valeur de ma case (avec une formule pour mettre par exemple 1 ou 2),

la ligne ne se réaffiche pas.

Est-ce que quelqu'un a une solution pour mon problème?

Merci

Cdtval

Bonjour

Normal tu supprimes (Delete) la ligne

Essayes

Sub Masque_Ligne()
Dim i As Integer

  Application.ScreenUpdating = False
  Rows("1:53").Hidden = False
  For i = 1 To 53
    If Cells(i, 6) = 0 Then
      Rows(i).Hidden = True
    End If
  Next
Application.ScreenUpdating = True
End Sub

Merci pour ta réponse

Mais mon problème reste le même :

Lorsque je mets une autre valeur que 0, la ligne ne se réaffiche pas...

Bonjour

Break

Mais en attendant

Voilà mon fichier

Le tableau à traiter est le classeur AGS

Bonjour

Clic droit sur l'onglet de la feuille "AGS" ----> Visualiser le code

Dans la fenêtre tu y colles cette macro

Private Sub Worksheet_Activate()
Dim i As Integer

  Application.ScreenUpdating = False
  Rows("1:53").Hidden = False
  For i = 1 To 53
    If Cells(i, 6) = 0 Then
      Rows(i).Hidden = True
    End If
  Next
Application.ScreenUpdating = True

End Sub

Bonjour

Super merci ça marche nickel !

Bonne journée

Cdtval