Macro trier de A à Z ?

Bonsoir ci-joint un fichier avec une macro pour trier de A à Z les données dans la colonne A, j'aimerais savoir si il est possible d'avoir un code plus simple ? merci

Bonsoir

Sub Trier()
Range("A1:A8").Sort Key1:=Range("A1")
End Sub

Amicalement

Nad

Merci chef !

J'avais oublié une chose, si je veux que la sélection soit étendue ?

Re

Sub Trier()
Dim derlg As Integer
derlg = ActiveSheet.Range("A65536").End(xlUp).Row
Range("A1:A" & derlg).Sort Key1:=Range("A1")
End Sub

amicalement

Nad

Merci.