Bonjour à tous

voila je réalisé une macro de tri par ordre alphabétique avec l'enregistreur de macro excel et je cherche à la simplifier le maximum possible

Voici la macro

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
ActiveWorkbook.Worksheets("Liste_Fournisseurs").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Liste_Fournisseurs").Sort.SortFields.Add Key:= _
        Range("D12:D" & Derligne), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    ActiveWorkbook.Worksheets("Liste_Fournisseurs").Sort.SortFields.Add Key:= _
        Range("C12:C" & Derligne), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Liste_Fournisseurs").Sort
        .SetRange Range("B11:D" & Derligne)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Merci à vous tous

Cordialement