Saut de pages en fonction du nombre de lignes visibles

Bonjour à tous,
sur mon projet, j'ai une macro qui exporte une sélection de feuilles qui fonctionne à merveille (merci d'ailleurs au forum pour cette aide précieuse).
A présent, j'aurai voulu automatiser mes sauts de pages sur une feuille en particulier (feuille d'état d'acompte) avant de réaliser l'enregistrement pdf.
J'ai bien trouvé le code suivant sur le forum (https://forum.excel-pratique.com/excel/saut-de-page-en-vba-151471) mais cela n'aboutit pas au résultat attendu.
Je pense que c'est parce que mon fichier comporte des zones filtrées dans la feuille sur laquelle je veux faire des sauts de page (les autres pages tiennent sur un format A4 et n'ont pas besoin de sauts).
Je pensais faire un saut toutes les 75 lignes visibles mais même en tentant d'adapter la macro ci-dessous, cela ne fonctionne pas.
Quelqu'un aurait-il une idée ?
merci d'avance

Sub Macro1()
'
Dim NBLIGNES As Long
Dim NBSAUTS As Long
Dim VALSAUTS As Long
NBLIGNES = Range("A65536").End(xlUp).Row ' on trouve le nombre de ligne total de votre feuille
NBSAUTS = NBLIGNES / 5  ' on calcul le nombre de sauts de pages nécessaires
VALSAUTS = 5   ' valeur du saut de page

'ON BOUCLE AUTANT DE FOIS QUE DE SAUTS TROUVES PRECEDEMMENT
For I = 1 To NBSAUTS
    Rows(VALSAUTS + 1 & ":" & VALSAUTS + 1).Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

'ON INDIQUE LA NOUVELLE VALEUR DU PROCHAIN SAUT AVANT LA BOUCLE SUIVANTE
VALSAUTS = VALSAUTS + 5

Next I

End Sub