bonjour, je cherche à inclure dans une macro excel une boucle me permettant de répéter un tri décroissant sur une ligne à la fois

j'ai écrit ce code (qui bien sûr ne fonctionne pas)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Dim X As Row
For Each X In Range("b4519:IL4818")
If X.Value <= 4818 Then
Row(X).Select
    Selection.Sort Key1:=Row(X), Order1:=xlDescending, Header:=xlGuess _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
        DataOption1:=xlSortNormal
Next X
End If
If X.Value > 4818 Then
Exit For
End If
Merci pour votre aide

[Balises "Code" ajoutées par AlainTech]
[Pensez-y vous-même à l'avenir. Merci.]