Trier des lignes suivant une valeur de cellule

Bonjour à tous ! J'espère que ces fêtes se passent bien ..

Voilà mon blem a faire faire par une macro

j'ai un tableau Nom, Prénom, Club, Classement, Moyenne, Contrat

Le nom du 1er joueur inscrit est en A7

et le nombre de lignes dépend du nombre de joueurs inscrits.

Je fais afficher le nombre de joueurs inscrit en cellule B1 à l'aide de la formule =NBVAL(A7:A18) par exemple si la liste est remplie jusqu'en A18

Je voudrais sélectionner les lignes non vides (dépend du nombre de joueurs)

J'ai fait cela avec ces instructions :

Dim NbreJoueurs As Integer

Sheets("Liste Joueurs").Select

NbreJoueurs = Range("B1").Value

ActiveSheet.Range(Cells(7, 1), Cells(6 + NbreJoueurs, 6)).Select

End Sub

J'aimerais maintenant classer ces lignes dans l'ordre décroissant de la moyenne (colonne E)

J'ai essayé avec le tri mais ma plage est fixe dans la macro. je ne sais pas comment ecrire la plage choisi dans le tri vu qu'elle est modifiée par le nombre de joueurs.

Merci pour votre aide.

Bonjour,

Tu peux essayer comme cela

Sub test()
Dim DerLig As Integer
Dim Plage As Range
    With Sheets("Liste Joueurs")
        DerLig = .Range("A" & Rows.Count).End(xlUp).Row
        Set Plage = .Range("A7:E" & DerLig)
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=.Range("E7:E" & DerLig), SortOn:=xlSortOnValues, _
            Order:=xlDescending, DataOption:=xlSortNormal
        With .Sort
            .SetRange Plage
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
End Sub

A+

Impécable ! Pile ce que je voulais !

Un grand merci à toi !