Impression tableau VBA

bonjour

j'ai ce bout de code qui à l'aide d'un bouton impression m'affiche aperçu avant impression le soucis c'est que dans certain cas j'ai plusieurs pages à imprimer mais il me mais sur chaque page le tableau qui se trouve en haut de ma page comment supprimais cela ?

merci

Private Sub Imprimer()
  Dim rw As Long
  Dim rng As Range
  Dim rng1 As Range
  Dim cell As Range

  Application.ScreenUpdating = False

  ' Définir la plage qui doit être testée ...
  Set rng1 = ActiveSheet.Range("I13:J216")
  ' Définir la plage Globale...
  Set rng = ActiveSheet.Range("A1:I216")

  ' Tester que les lignes soient vides dans les Colonnes I , J
  ' pour temporairement les masquer ...
    With rng.Columns(9)
        For Each cell In rng
          If Not Intersect(cell, rng1) Is Nothing Then
                If Application.WorksheetFunction.CountA( _
               .Parent.Cells(cell.Row, 1).Range("I1:J1")) = 0 Then _
               .Parent.Rows(cell.Row).Hidden = True
          End If
        Next cell
        ' Imprimer la Plagecompte tenu du test précédent
        ActiveSheet.PageSetup.CenterHorizontally = True
        ActiveSheet.PageSetup.CenterVertically = False
         .Parent.PrintPreview
        ' Retirer le masque des lignes
        .EntireRow.Hidden = False
    End With

  Application.ScreenUpdating = True

End Sub