XL 2021 Quand mon devis déborde sur la page 2 ?

Sub SautPage()
    On Error GoTo fin
    Dim sh As Worksheet, i&, Collection_SautPage As HPageBreaks, SautPage As HPageBreak
        [J2:J3].ClearContents
        Set sh = ActiveSheet
        Set Collection_SautPage = sh.HPageBreaks
            With Collection_SautPage
                For i = 1 To .Count
                    [J2] = "Saut de page N°" & i & " : entre les lignes " & .Item(i).Location.Row - 1 & " et " & .Item(i).Location.Row
                Next i
                On Error Resume Next
                [J3] = [A1000].End(xlUp).Row - (.Item(1).Location.Row - 1)
            End With
fin:
    Set sh = Nothing
    Set Collection_SautPage = Nothing
End Sub