Ok donc j'ai modifié un peu, comme ceci :
y = Sheets(export actu_mobile).Cells(13, 4).End(xlDown).Row
Range("A13:N" & y).Select
ActiveWorkbook.Worksheets("export actu_mobile").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("export actu_mobile").Sort.SortFields.Add Key:=Range("D14:D" & y) _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("export actu_mobile").Sort
.SetRange Range("A13:N" & y)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
si je lance depuis la feuille qui contient le classement, ça fonctionne. Cool !
Maintenant, je voudrais la lancer depuis une autre feuille et évidemment ça coince à cause du "Range("A13:N" & y).Select" au début :/
Tu sais comment je peux faire pour trier ces données sans être sur la feuille ?
Merci pour ton aide !