Executer une macro en quittant une feuille

Bonjour à tous. Je voudrais une macro qui tri par ordre alphabétique des donnes dans une colonne d'une feuille et qui s'exécute en quittant cette feuille. Voir le fichier joint, l'onglet Liste ressource. Merci de votre aide. Dany

Bonjour

Code à coller dans le module de la feuille concernée

Private Sub Worksheet_Deactivate()
  Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Sort key1:=Range("A2"), order1:=xlAscending, Header:=xlNo, dataoption1:=xlSortNormal
End Sub

C'est exatement ce qui me faut, mille merci, Dany