[COLOR=DarkSlateGray][B][COLOR=Sienna]'Pour ne copier que les valeurs :[/COLOR]
Private Sub Worksheet_Change(ByVal Target As Range)
Dim oPlg
With Sheets("Feuil3")
On Error Resume Next: .Range("LISTE").ClearContents: On Error GoTo 0
Set oPlg = Columns(1).Resize(Rows.Count - 1, 1).Offset(1, 0)
If Not oPlg Is Nothing Then .Range("LISTE_REF").Offset(1, 0).Resize(oPlg.Rows.Count, 1).Value = oPlg.Value
End With
End Sub[/B][/COLOR]