Sub Test_sautdepage()
Dim i&
For i = 3 To Range("A65536").End(xlUp).Row
If Range("B" + CStr(i)).Value <> Range("B" + CStr(i - 1)).Value Or _
Range("C" + CStr(i)).Value <> Range("C" + CStr(i - 1)).Value Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("A" + CStr(i))
End If
Next i
End Sub