Ajout dans une liste Données/Validation

Si l'élément frappé n'appartient pas à la liste, il est ajouté à la iste dans le tableur

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$2" Then
     If IsError(Application.Match(Target.Value, [Liste], 0)) Then
        [Liste].End(xlDown).Offset(1, 0) = Target.Value
        Sheets("Liste").[Liste].Sort key1:=Sheets("Liste").Range("A2")
     End If
   End If
End Sub

DV_ajoutListe.xls