Imprimer une feuille après avoir rempli des cellules en récupérant des valeurs

Sub Imprime()
Dim L& 'Déclaration de variable "L" pour connaitre la Ligne Numéro
'ici je repère la dernière ligne vide pour la Collections des données
L = Sheets("INDEX NEFS").Range("A65536").End(xlUp).Row + 1

With Sheets("Feuil relevés MACH")
    Sheets("INDEX NEFS").Range("A" & L).Resize(, 2) = Array(.[E5], .[E6])
End With
'Apercu avant Impression pour test
Sheets("INDEX NEFS").PrintPreview

'Après j'imprime la feuille
'Sheets("INDEX NEFS").PrintOut Copies:=1, Collate:=True
'Sheets("Feuil relevés MACH").Select
End Sub

Sub ImprimeBis()
Dim L&
L = Sheets("INDEX NEFS").Range("A65536").End(xlUp).Row
With Sheets("Feuil relevés MACH")
With .Range("F5:F6")
.Value = Application.Transpose(Sheets("INDEX NEFS").Range("B" & L).Resize(, 2).Value)
.NumberFormat = "#,##0.00"
End With
'.PrintPreview 'pour test OK
.PrintOut Copies:=1, Collate:=True
End With
End Sub