Macro pour trier automatiquement sans bouton

Bonjour,

Je suis débutant dans le langage VBA, mon problème est le suivant :

J'ai une liste de contacts avec :

Les photos dans la colonne D ( de D7 à D300 ), les nom dans la colonne E ( de E7 à E300 ) et les numéros dans la colonne F ( de F7 à F300 ).

Je veux les trier automatiquement de A à Z par rapport au nom (Colonne E) bien sûr sans cliquer dans un bouton et à chaque fois que j'entre un nouveau nom.
J'ai fait des recherches et j'ai trouvé que néné à crée le macro suivant :

Private Sub Worksheet_Activate() 
Range("B5:C22").Select 'plage par exemple où sont tes noms et adresses 
Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess, _ 
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom 'B5 est la cellule où il y a le premier nom 
Range("B5").Select 
End Sub 

Mais j'arrive pas à l'adapter à mon macro.

Pouvez-vous m'aider à écrire un macro pour ça s'il vous plaît.

Merci d'avance pour votre aide.