Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("d3")) Is Nothing Then Sheets("Feuil2").Range("a4") = Target
On Error GoTo 0: Application.EnableEvents = True
End Sub