Erreur impression macro

Bonjour,

J'ai écrit une macro pour imprimer des feuilles de rapports.

Dans ma feuille, j'ai de nombreux rapport mais il ne sont pas tous remplis. Donc la 1ere partie du code est pour définir la zone d'impression

L'autre partie est pour imprimer. L'erreur est que les rapports sont imprimés en double exemplaire même avec le copies:=1

Sub imprimer_rapports()

Dim rapports As Worksheet
Set rapports = Worksheets("Rapports")

'Parcours la première colonne de chaque rapport et regarde si les cases contenant les ID patient sont vides, si vide = exit
For colonne = 1 To rapports.Cells(1, Columns.Count).End(xlToLeft).Column
  If IsEmpty(rapports.Cells(14, colonne)) And IsEmpty(rapports.Cells(22, colonne)) And IsEmpty(rapports.Cells(28, colonne)) And IsEmpty(rapports.Cells(37, colonne)) And IsEmpty(rapports.Cells(50, colonne)) Then
    Exit For
  End If
  colonne = colonne + 7
Next

'Si on a au moins un rapport, on l'imprime
If colonne <> 1 Then
  rapports.PageSetup.PrintArea = rapports.Range(Cells(1, 1), Cells(59, colonne - 1)).Address 'Définir la zone d'impression
  If Application.Dialogs(xlDialogPrint).Show = False Then 'Affiche les imprimantes
    Exit Sub
  Else
    rapports.PrintOut Copies:=1 'Imprimer
  End If
End If

End Sub

De plus vous saurez quel code ajouter pour que ça s'imprime seulement sur une face et pas en recto verso ?

Merci :)