Tri A-Z de liste déroulante qui augmente sans VBA ?

Bonjour à toutes et tous

J'ai trouvé sur le forum une solution permettant de trier par ordre alphabétique une liste de données utilisée comme liste déroulante, mais est-ce possible sans utiliser VBA ?

Pour être bien sûr que ce que je dis est clair, je souhaite ajouter des raisons sociales dans une colonne dédiée, par ex. la colonne A. On a donc :

A1 = Dupond

A2 = Toto

A3 = Antoine

Ces cellules sont utilisées dans une liste déroulante que je souhaite donc triée par ordre alphabétique, soit :

Antoine

Dupond

Toto

Bonjour, Lumbreiser

C'est possible avec deux colonnes

A tester avec 2 colonnes et 200 lignes

Amicalement

Pierrot

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("B1:B200"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A1:B200")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A7").Select
End Sub

Une autre version avec changement des valeurs et tri automatique si une nouvelle entrée

Pierrot

bonjour

un essai

cordialement

edit :en mieux

C'est parfait ça, c'est exactement ce que je recherche. Un grand merci à toi !

tulipe_4 a écrit :

edit :en mieux