Sub sauvegarde_facture()
Dim f As Worksheet, i&
Set f = Sheets("Modèle")
With Sheets("enregistrement_factures")
.Rows("2:2").Insert Shift:=xlDown
.Rows("2:2").ClearFormats
For i = 6 To 9
.Cells(2, 2 + a) = f.Range("J" & i)
a = a + 1
Next i
.Cells(2, 6) = f.Range("J12")
.Cells(2, 7) = Format(f.Range("J15"), "00 00 00 00 00")
.Cells(2, 8) = Format(f.Range("J16"), "00 00 00 00 00")
.Cells(2, 9) = f.Range("J14")
.Cells(2, 10) = Format(f.Range("L4"), "dd/mm/yyyy")
.Cells(2, 11) = Format(f.Range("L37"), "#,##0.00 $")
.Cells(2, 1) = Format(f.Range("I4"), "0000")
End With
End Sub