Sub Imprime()
Dim F, DL%, L%
On Error GoTo Fin
Set F = Sheets("Original")
DL = F.Range("A65500").End(xlUp).Row
With Sheets("SUBRO")
For L = 14 To DL ' Pour toutes les lignes
If F.Cells(L, "B") = "" Then Exit Sub
.[N1] = F.Cells(L, "B") ' Nom
.[Z1] = F.Cells(L, "C") ' Prénom
.[AM3] = F.Cells(L, "I") ' Date arrivée
ActiveWindow.SelectedSheets.PrintPreview ' Aperçu avant impression
' Pour imprimer sans aperçu, mettre ligne précédente en commentaires
' et supprimer commentaire sur la ligne suivant
'ExecuteExcel4Macro "PRINT(1,,,1,,FALSE,,,,,,2,,,TRUE,,FALSE)"
Next L
End With
Fin:
End Sub