[Besoin d'aide] Erreur d'exécution '9'

Bonjour,

J'ai un classeur Excel avec deux feuilles : 'Bilan' et 'Liste'

J'ai fait une macro qui classe ma 'Liste' dans un certain ordre :

Dans 'Module1' :

Sub Tri_par_Cote()
    Range("A2:N1048576").Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("N2"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A2:N36")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Cette macro fonctionnait avant que je ne crée ma feuille 'Bilan'.

Ensuite, pour que ma macro soit activée à l'affichage de ma feuille :

Dans 'Feuil1 (Liste)' :

Private Sub Worksheet_Activate()
    Tri_par_Cote
    ActiveCell.Select
End Sub

A présent, quand j'affiche ma feuille (et donc que j'active ma macro), on me dit :

Erreur d'exécution '9' :
L'indice n'appartient pas à la sélection.

J'espère que quelqu'un pourra m'aider...
D'avance merci.

Cordialement.

Pierre