Tri qui ne fonctionne pas

Salut,

J'ai le code suivant pour faire un tri par ordre alphabétique (numérique en fait).

With Sheets("Budget")
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=Range(.Cells(2, Jour_budget), .Cells(Dernière_ligne, Jour_budget)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Budget").Sort
        .SetRange Sheets("Budget").Range(Sheets("Budget").Cells(2, Jour_budget), Sheets("Budget").Cells(2, Compte_budget))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With

La feuille "Budget" existe bien

Les variables Jour_budget, Dernière_ligne et Compte_budget sont correctement définies.

La macro s'exécute sans message d'erreur.

Mais le tri ne se fait pas.

J'ai essayé d'enregistrer le tri pour générer une macro automatique je n'ai pas vu de différence. Cette macro est un copier/coller adapté d'une macro d'un autre UserForm qui elle fonctionne très bien...

Si vpous avez une solution je prends.

Merci d'avance.

Manu

bonjour,

peux-tu mettre ton classeur ?