Sub insert_sdp()
Dim C As Range, Plg As Range
Dim FAdr As String
ActiveSheet.ResetAllPageBreaks
Set Plg = Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row)
Set C = Plg.Find("E TONDU", LookAt:=xlPart)
If Not C Is Nothing Then
FAdr = C.Address
Do
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=C
Set C = Plg.FindNext(C)
Loop While Not C Is Nothing And C.Address <> FAdr
End If
End Sub