Bonjour à tous,

Toujours aussi nul en VBA (j'avance quand même un peu).

L'écriture (automatique) de la macro me donne ça :

Rows("2:10000").Select
ActiveWorkbook.Worksheets("Smatr").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Smatr").Sort.SortFields.Add Key:=Range("D2 http://www.developpez.net/forums/images/smilies/icon_biggrin.gif" type="#_x0000_t75" o:spid="_x0000_i1026">10000"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Smatr").Sort
.SetRange Range("A2http://www.developpez.net/forums/images/smilies/icon_razz.gif" type="#_x0000_t75" o:spid="_x0000_i1025"> 10000")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

"Smatr" est le nom de l'une des feuilles dans mon classeur et j'aime le changer pour que la macro s'éxécute sur n'importe quelle feuille de mon classeur.

Un grand merci pour votre aide.