Commande macro Tri par ordre alphabétique

Bonjour,

J'ai un petit soucis avec mon tableur (A1:M37) au niveau de la deuxième feuille.

J'ai insérer dans celle ci une première commande macro me permettant d''ajouter une ligne en-dessous automatiquement (par un double clic dans la cellule A35 (càd la dernière).

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 
If Not Application.Intersect(Target, Range("top")) Is Nothing Then 
''Macros par Jarmouni Sofiane le 22 Jan 13 
Dim Lg% 
Lg = Range("Top").Row 

Application.EnableEvents = False 
Rows(Lg).Copy 
Rows(Lg).Insert 
Range("top").ClearContents 
Application.CutCopyMode = False 
Application.EnableEvents = True 
End If 
End Sub 

J'ai par la suite dans la plage ou je dois inscrire mes données (à savoir A5:M35), insérer une seconde commande macro me permettant par un Ctrl+w de trier par ordre croissant les lignes (ordre chronologique). Ça marche du feu de dieu, mais cela s'arrête bien à la ligne 35, et comme avec la première macro j'ai ajouté d'autres lignes et bien les nouvelles lignes restantes ne sont pas triées.
Voila le code actuel de la seconde Macro :

Sub Tri() 
' 
''Macros par Jarmouni Sofiane le 24 Jan 13 

' Tri Macro 
' Tri automatique des lignes 
' 
' Touche de raccourci du clavier: Ctrl+w 
' 
    Range("A5:M35").Select 
    ActiveWindow.SmallScroll Down:=-14 
    ActiveWorkbook.Worksheets("Mouvement des flux").Sort.SortFields.Clear 
    ActiveWorkbook.Worksheets("Mouvement des flux").Sort.SortFields.Add Key:= _ 
        Range("A5"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ 
        xlSortNormal 
    With ActiveWorkbook.Worksheets("Mouvement des flux").Sort 
        .SetRange Range("A5:M35") 
        .Header = xlNo 
        .MatchCase = False 
        .Orientation = xlTopToBottom 

Voilà donc mon problème, Y aurait-il quelqu'un capable de me fournir une nouvelle commande, ou bien un moyen de faire fonctionner les deux ?
Je reste à votre disposition pour de plus amples informations si besoin est.

Cordialement.

Sofiane Jarmouni