Option Explicit
Sub Saut_de_page_insérer()
Dim i As Long
Application.ScreenUpdating = 0
With Sheets("Feuil1")
.ResetAllPageBreaks
For i = .Cells(Rows.Count, "b").End(xlUp).Row To 3 Step -1
If .Range("b" & i).Value = 7 Then .HPageBreaks.Add Before:=.Range("b" & i)
Next i
End With
Application.ScreenUpdating = -1
End Sub