impression d'une cellule fusionnée sur 2 pages d'un document

Sub Imprimer()
With ActiveSheet
  .PageSetup.PrintTitleRows = ""
  .PrintOut From:=1, To:=1
  .PageSetup.PrintTitleRows = "$10:$14"
  .PrintOut From:=2, To:=2
End With
End Sub

Sub Imprimer()
With ActiveSheet
  .PageSetup.PrintTitleRows = ""
  .PrintOut From:=1, To:=1, Preview:=True
  .PageSetup.PrintTitleRows = "$10:$14"
  .PrintOut From:=2, To:=2, Preview:=True
End With
End Sub

Sub Imprimer()
With ActiveSheet
  .PageSetup.PrintTitleRows = "$1:$1" 'titre
  .ResetAllPageBreaks
  .Rows(15).PageBreak = xlPageBreakManual
  .PrintOut From:=1, To:=1, Preview:=True
  .ResetAllPageBreaks
  .Rows(10).PageBreak = xlPageBreakManual
  .PrintOut From:=2, To:=2, Preview:=True
End With
End Sub

Sub Imprimer()
Dim Nlig&, i&
Nlig = Val(InputBox("Entrez le nombre maximum de lignes d'une page :", "Imprimer"))
If Nlig < 1 Then Exit Sub
If Nlig < 6 Then MsgBox "Nombre trop petit...": Exit Sub
With ActiveSheet
  .ResetAllPageBreaks 'RAZ
  i = 1
  While Application.CountA(Cells(i, "B").Resize(.Rows.Count - i + 1))
    i = i + Nlig
    i = .Cells(i, "B").MergeArea.Row
    .HPageBreaks.Add .Rows(i)
  Wend
  .PrintOut Preview:=True 'aperçu avant impression
End With
End Sub