Bonjour à tous,

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

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Rows("2:10000").Select
    ActiveWorkbook.Worksheets("Smatr").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Smatr").Sort.SortFields.Add Key:=Range("D2:D10000"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Smatr").Sort
        .SetRange Range("A2:P10000")
        .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.