J'arrive à peu prés à faire ce que j'ai besoin mais arrivé à "10" ça plante!
Sub Macro34()
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.ResetAllPageBreaks
Set ActiveSheet.VPageBreaks(1).Location = Range("R4")
Set ActiveSheet.VPageBreaks(2).Location = Range("AF4")
Set ActiveSheet.VPageBreaks(3).Location = Range("AW4")
Set ActiveSheet.VPageBreaks(4).Location = Range("BH4")
Set ActiveSheet.VPageBreaks(5).Location = Range("BX4")
Set ActiveSheet.VPageBreaks(6).Location = Range("CJ4")
Set ActiveSheet.VPageBreaks(7).Location = Range("CR4")
Set ActiveSheet.VPageBreaks(8).Location = Range("DD4")
Set ActiveSheet.VPageBreaks(9).Location = Range("DP4")
Set ActiveSheet.VPageBreaks(10).Location = Range("EC4")
Set ActiveSheet.VPageBreaks(11).Location = Range("EN4")
Set ActiveSheet.VPageBreaks(12).Location = Range("EU4")
Set ActiveSheet.VPageBreaks(13).Location = Range("FA4")
Range("B2").Select
End Sub