imprimer plusieurs fois la meme feuille

Private Sub CommandButton1_Click()

    Dim Ligne As Integer
    Dim Colonne As Byte
    Dim Fin As Integer
    Dim nbrCopie As Integer
    
    On Error Resume Next
        
    Fin = Range("C65535").End(xlUp).Row
    
    For Ligne = 1 To Fin
        For Colonne = 1 To 5
            If Cells(Ligne, Colonne) <> "" Then GoTo Saut
        Next Colonne
        Rows(Ligne & ":" & Ligne).EntireRow.Hidden = True
Saut:
    Next Ligne
    
    nbrCopie = InputBox("Combien de copie voulez-vous faire ?", Title:="Copies")
    
    If nbrCopie = 0 Then
        Rows("1:" & Fin).EntireRow.Hidden = False
        Exit Sub
    Else
        ActiveWindow.SelectedSheets.PrintOut Copies:=nbrCopie, Collate:=True
    End If
    
    Rows("1:" & Fin).EntireRow.Hidden = False
    
End Sub

Private Sub CommandButton1_Click()
  Dim Li As Long
  For Li = 1 To Cells(Rows.Count, 3).End(xlUp).Row
    Rows(Li).Hidden = Application.CountBlank(Range("A" & Li & ":E" & Li)) = 5
  Next
  Application.Dialogs(xlDialogPrint).Show
  Cells.EntireRow.Hidden = False
End Sub