Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E1]) Is Nothing Or [E1] = "" Then Exit Sub
With Sheets("Liste")
.[A1].Insert xlDown
.[A1] = [E1]
.[A:A].Sort .[A1], Header:=xlNo
.[A:A].RemoveDuplicates 1 'supprime les doublons
.[A1].CurrentRegion.Name = "Liste" 'plage nommée
End With
End Sub