Problème sur macro de tri

Bonjour à tous ,

J'ai actuellement ne code qui fonctionne très bien mais qui actuellement fais du tri suivant 3 couleurs. J'aimerai changer le tri des couleurs par un tri décroissant (numériquement).

N'étant que novice dans le domaine j'aurais besoin d'un petit coup de pouce.

Merci d'avance

Cdlt

Sub Trier()
    Range("C3:S150").Select
    ActiveWorkbook.Worksheets("Plans d'actions").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Plans d'actions").Sort.SortFields.Add(Range( _
        "F3:F150"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color _
        = RGB(255, 0, 0)
    ActiveWorkbook.Worksheets("Plans d'actions").Sort.SortFields.Add(Range( _
        "F3:F150"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color _
        = RGB(255, 255, 0)
    ActiveWorkbook.Worksheets("Plans d'actions").Sort.SortFields.Add(Range( _
        "F3:F150"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color _
        = RGB(146, 208, 80)
    With ActiveWorkbook.Worksheets("Plans d'actions").Sort
        .SetRange Range("C3:S150")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
  End Sub

Bonjour,

Remplace xlAscending par xlDescending !?

Cdlt.

Bonjoru Jean Eric,

J'ai remplacer mon code par :

Sub Tri_Ouvertes()

Range("C3:S150").Select
Selection.Sort Key1:=Range("F6"), Order1:=xlDescending, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

Comme ceci il me tri bien mes valeur du plus haut au plus bas.

Mon problème étant qu'il me met toutes les cellules vides au dessus.

Comment puis-je y remédier ?

Merci