Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:=""
Dim Sh1 As Worksheet
Dim Sh2 As Worksheet
Dim DerLig As String
Set Sh1 = Sheets("Feuil1")
Set Sh2 = Sheets("Feuil2")
DerLig = Sh1.Range("H" & Rows.Count).End(xlUp).Row
If Not Intersect(Target, Sh1.Range("H8:H" & DerLig)) Is Nothing Then
Target.EntireRow.Copy Sh2.Cells(Sh2.Rows.Count, 1).End(xlUp).Offset(1)
End If
Set Sh1 = Nothing
Set Sh2 = Nothing
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub