Erreur select dans le macro de tri automatique d'un tableau.

Bonjour,

J'ai un problème avec le macro qui me permet de trier automatiquement le tableau (Remarque ce n'est pas moi qui a créé le macro je l'ai juste trouver dans l'internet et adapté à mes besoins), mais à chaque fois il m'affiche l'erreur suivante : "La méthode select de la classe range a échoué".

Voici le macro :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim longueur, separateur, i
Dim macell As Range, mazone As Range
Range("D7:N303").Select 'plage par exemple où sont tes noms et adresses
Selection.Sort Key1:=Range("E7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom 'E7 est la cellule où il y a le premier nom
Range("E7").Select
End Sub

J'ai essayé une autre méthode maintenant je suis dans la feuille 2, j'ai créé in bouton et je lui ai affecté macro suivant :

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

Mais ça marche toujours pas, il m'affiche la même erreur ("La méthode select de la classe range a échoué").

Merci de bien vouloir m'aider.