macro automatique tri alphabetique excel

bonsoir, après de nombreux essais j'ai ma macro de tri alphabétique, mais je voudrais l'améliorer pour qu'elle s'exécute sans passer par un bouton ou exécuter macro. En fait que le tri s'effectue dès qu'une nouvelle cellule est ajoutée. mes données sont dans la colonne A, et sont complété au fur et à mesure.



Sub trialpha()

Dim Lg As Integer
Lg = Range("A65536").End(xlUp).Row
Range("a2:j" & Lg).Sort Key1:=Range("a2"), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False
End Sub


Merci pour votre aide.😎