XL 2019 tri décroissant vba

[GUERET]

Bonjour,
J'ai sur cette feuille, je veux trier par but du plus grand au plus petit de E42 à F57 mais ma VBA ne fonctionne pas.
Où se situe mon erreur ?
D'avance, merci

 

[sylvanu]

Bonjour Gueret,
Déjà cette syntaxe est fausse :

Private Sub Worksheet_Change(ByVal Target As Range)
 Sub TriDecroissant()

On ne peut pas avoir une sub déclarée dans une sub.
Testez cette PJ avec :

Private Sub Worksheet_Change(ByVal Target As Range)
    With Sheets("Phase de poule").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("F42:F57"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        .SetRange Range("E41:F57")
        .Header = xlYes
        .Apply
    End With
End Sub

 

[GUERET]

Merci pour cette réponse rapide et EFFICACE.
J'ai encore beaucoup à apprendre sur les VBA