bonsoir, en panne de box, je viens juste d'être connectée.
Mon code est dans le Module 'NouvelleFact'.
Sub EnregistreFacture() 'enregistre la facture dans HistoFactures
Application.ScreenUpdating = False
With Sheets("HistoFactures") 'selection de Histo de la colonne AàF
.Range("A5:H5").Insert shift:=xlShiftDown
.Range("A5:H5").Value = Array(CDate(Range("K9")), Range("K7"), Range("J14"), Range("K63"), Range("K64"), Range("K67"))
.Range("A5:h5").Interior.ColorIndex = xlNone
End With
Application.ScreenUpdating = True
End Sub
A partir de G J'ai le suivi des paiements donc des formules
merci de m'avoir répondu.