vba saut de page

Sub test()
    Dim saut As HPageBreak
    For Each saut In ActiveSheet.HPageBreaks
        With Range("E" & saut.Location.Row - 1).Resize(, [E1:J60].Columns.Count)
            .Borders(xlEdgeBottom).LineStyle = xlContinuous
            .Borders(xlEdgeBottom).Weight = 4
            .Borders(xlEdgeBottom).Color = vbRed
        End With
    Next
End Sub

    Dim Lcell As Range
    Set Lcell = Columns("E").Find("*", , xlFormulas, , , xlPrevious)
    msgbox "dernière ligne :" & Lcell.row

    Dim Lr As Long
    Lr = [Tableau1].Row + [Tableau1].Rows.Count - 1
    MsgBox "dernière ligne :" & Lr

Sub test()
Dim saut As HPageBreak
For Each saut In ActiveSheet.HPageBreaks
With Range("E" & saut.Location.Row - 1).Resize(, [E1:J60].Columns.Count)
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeBottom).Weight = 4
.Borders(xlEdgeBottom).Color = vbRed
End With
Next
with activesheet.[E60:J60]
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeBottom).Weight = 4
.Borders(xlEdgeBottom).Color = vbRed
End With

End Sub

Sub Macro1()
Dim deb As Integer
Dim col_deb As Integer
Dim col_fin As Integer
Dim interval As Integer

With ActiveSheet
deb = 19
col_deb = 5
col_fin = 10
interval = 9
For i = 1 To 100
.Range("E" & deb, "J" & deb).Borders(xlEdgeBottom).LineStyle = xlContinuous
.HPageBreaks.Add .Range("E" & deb, "J" & deb)
.VPageBreaks.Add .Range("E" & deb, "J" & deb)
deb = deb + interval
Next i
End With
End Sub