Dim Macellule as Range
If Macellule.PageBreak <> xlPageBreakNone Then MsgBox "saut de page = vrai"
Sub test()
Dim maval As Range, i As Long
For i = 1 To Sheets(1).HPageBreaks.Count
Set maval = Sheets(1).HPageBreaks.Item(i).Location
MsgBox maval.Address(0, 0)
Next i
End Sub