Création PDF avec "lignes solidaires"

Bonjour,

Je souhaiterais savoir s'il est possible à la création d'un pdf à partir d'une macro excel de créer des "lignes solidaires" afin d'imposer qu'elles apparaissent toutes sur la même page PDF.

Actuellement mes lignes ne le sont pas et ça rend la lecture très difficile.

(je souhaite pouvoir rendre solidaire les lignes par groupe de 2 de la ligne 30 à la ligne 39

Puis par 4 de la ligne 40 à la ligne 50)

Des idées ?

Voci le code :

Sub EnrPdf()
    Dim Provisoire As Worksheet
    Application.ScreenUpdating = False
    Range("A30:N500").Select
    Selection.Copy
    Set Provisoire = Sheets.Add(After:=Sheets(Sheets.Count))
    ProvisoireName = "Provi" 
    Provisoire.Activate
    ActiveSheet.Paste

     Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$30:$31"
    End With
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints(0.708661417322835)
        .RightMargin = Application.InchesToPoints(0.708661417322835)
        .TopMargin = Application.InchesToPoints(0.748031496062992)
        .BottomMargin = Application.InchesToPoints(0.748031496062992)
        .HeaderMargin = Application.InchesToPoints(0.31496062992126)
        .FooterMargin = Application.InchesToPoints(0.31496062992126)
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlPortrait
        .PaperSize = xlPaperA4
    End With
    Application.PrintCommunication = True

    ActiveSheet.PageSetup.PrintArea = "A1:L500"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Test\" & NomFeuille ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

    With Application
        .DisplayAlerts = False
    End With
    ActiveSheet.Hide
    Application.ScreenUpdating = True
End Sub