Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig As Byte
If Target.Column <> 4 Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target <> "" And Target > 1 Then
Application.EnableEvents = False
Cells(Target.Row, 1).Resize(1, 8).Copy Cells(Target.Row + 1, 1).Resize(Target - 1, 8)
Application.EnableEvents = True
End If
End Sub