Sub Enregistrer()
Dim lig As Variant, c As Range, col As Variant
With Feuil4 'CodeName de la feuille "Tableau"
lig = Application.Match([E2], .Columns(1), 0)
If IsError(lig) Then lig = .Cells(.Rows.Count, 1).End(xlUp)(2).Row
.Cells(lig, 1).Resize(, .Cells(1, .Columns.Count).End(xlToLeft).Column) = "NR"
.Cells(lig, 1).Resize(, 8) = Application.Transpose([E2:E9])
For Each c In [D10:D25]
col = Application.Match(c, .Rows(1), 0)
If IsNumeric(col) And c(1, 2) <> "" Then .Cells(lig, col) = c(1, 2)
Next
End With
End Sub