Private Sub Worksheet_Change(ByVal Target As Range)
Dim place As String
If Target.Address = "$B$3" Then
place = Sheets("Feuil2").Range("A65000").End(xlUp).Address
If Target.Value <> Sheets("feuil2").Range("" & place).Value Then
Sheets("feuil2").Range("" & place).Offset(1, 0).Value = Target.Value
End If
End If
End Sub