Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig&
If Intersect(Target, [A5:g10,A12:g17,A19:g24,A26:g31,A33:g38,A40:g41,A43:g44]) Is Nothing Then Exit Sub
If Cells(Target.Row, 1) = "" Then Exit Sub
If IsNumeric(Application.Match(Cells(Target.Row, 1).Value, Range("j:j"), 0)) Then
lig = Application.Match(Cells(Target.Row, 1).Value, Range("j:j"), 0)
Else
lig = Cells(Rows.Count, "J").End(xlUp).Row + 1
End If
Application.EnableEvents = False
Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Copy
Cells(lig, "j").PasteSpecial Paste:=xlPasteValues
Application.EnableEvents = True
Application.CutCopyMode = False
End Sub