Sub Saut()
Dim n As Integer, hp As Integer
With ActiveSheet
' Suppression des sauts de page manuels
n = .HPageBreaks.Count
For hp = n To 1 Step -1
If .HPageBreaks.Item(hp).Type = xlPageBreakManual Then .HPageBreaks(hp).Delete
Next
' Insertion des sauts de page avant chaque titre
With .Range("E:E")
Set cel = .Find("le titre recherché", LookIn:=xlValues)
If Not cel Is Nothing Then
lg = cel.Row
Do
If cel.Row > 1 Then ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=cel
Set cel = .FindNext(cel)
Loop While Not cel Is Nothing And lg <> cel.Row
End If
End With
End With
End Sub