Cacher lignes avec une plage variable

Bonjour,

J'aimerais faire une macro pour cacher des lignes lorsque le résultat est 0

j,ai fait :

Sub HURows()

BeginRow = 10

EndRow = 150

ChkCol = 43

For RowCnt = BeginRow To EndRow

If Cells(RowCnt, ChkCol).Value = 0 Then

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

Else

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

End If

Next RowCnt

End Sub

Cependant mon probleme c'est que j'aimerai que le nombre de ligne s'ajuste a chaque fois car je rajoute des lignes à mon fichier. Pour le moment j'en ai 150 mais la prochaine fois j'en aurai plus. Le nombre de ligne augmente mais ne diminue pas.

Je souhaiterais trouver un moyen de lui dire qu'il s'arrete à la derniere ligne de calcul. car sous mon tableau il y a des commentaires et je ne veux pas les perdre.

Je ne sais pas du tout comment faire. j'ai fais un peu de VBA il y a très longtemps et je ne me souviens plus de grand chose.

n'hésitez pas à me poser des questions si nécessaire

MERCI

Bonjour. Bienvenue sur le Forum

n'hésitez pas à me poser des questions si nécessaire

Peux-tu joindre le fichier?

Cordialement

Voici mon fichier.

Merci

Bonjour

Codes Module

Sub Masque()
Dim Cel As Range, i
For Each Cel In Range("A10", Range("A10").End(xlDown))
i = Application.Sum(Range(Cel.Offset(0, 1), Cel.Offset(0, 42)))
If i = 0 Then
Cel.EntireRow.Hidden = True
End If
Next Cel
Range("A9").Select
End Sub

et pour afficher tout

Sub Affiche_Tout()
    Cells.Select
    Selection.EntireRow.Hidden = False
    Range("A9").Select
End Sub

Cordialement

Merci beaucoup c'est vraiment fin de ta part.

Je regarde rapidement et je te dis quoi.

Merci

Bonjour,

et pourquoi pas un simple filtre ?

eric