Salut lembmc,
comme ceci, fichier enregistré en XLSM, le code devant être collé dans le module VBA de la feuille concernée, évidemment.
Private Sub Worksheet_Change(ByVal Target As Range)
'
Application.EnableEvents = False
'
If Not Intersect(Target, Range("E5:G9")) Is Nothing Then _
Range("E5:G9").Sort key1:=Range("F5"), order1:=xlDescending, key2:=Range("G5"), order2:=xlAscending, Orientation:=xlTopToBottom
'
Application.EnableEvents = True
'
End Sub
A+