Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
If Target = "" Then Exit Sub
If Target.Offset(0, -2).Value = "" Then Exit Sub
mydate = "01/01/2018"
'mydate="01/01/" & year(date)+1'pour d'année en année
If Target.Offset(0, -2).Value <= CDate(mydate) Then
lig = Application.Match(Target.Value, Feuil1.[E:E], 0)
If IsNumeric(lig) Then Exit Sub
lig = Target.Row
With Feuil1
bas = .[E65000].End(3).Row + 1
.Cells(bas, 5) = Cells(lig, 7)
.Cells(bas, 4) = Cells(lig, 3)
.Cells(bas, "S") = Cells(lig, 4)
.Cells(bas, "T") = Cells(lig, 6)
.Cells(bas, "E") = Cells(lig, 7)
.Cells(bas, "X") = Cells(lig, "H")
.Cells(bas, "U") = Cells(lig, "I")
End With
End If
End If
End Sub