[VBA EXCEL] aide tri par ordre alphbetique

Bonjour,

Si la colonne est unique, exemple pour la colonne A :

Sub TrierColonne()

    Range("A1:A100").Sort Key1:=Range("A1"), _
        Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, _
                Orientation:=xlTopToBottom, _
                    DataOption1:=xlSortTextAsNumbers

End Sub
'

Si la colonne a des colonnes associées :

ex:

Col A ............................Col B
Nom Prénom..................Statut

Dupont, Marc ................Permanent
Lupin,Arsène.................Occasionnel
Holmes, Sherlock............Temporaire

Il faut alors sélectionner toute la plage

Sub TrierColonne()

    Range("A1:B100").Sort Key1:=Range("A1"), _
        Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, _
                Orientation:=xlTopToBottom, _
                    DataOption1:=xlSortTextAsNumbers

End Sub
'

Lupin