Bonjour à tous

Voila ci-dessous j'ai pu créer une macro avec l’enregistreur de macro d'Excel qui a pour but de filtrer par ordre alphabétique elle fonctionne très bien du coup je cherche à la simplifier au maximum possible et la rendre un peu plus professionnel

Voici la macro

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
With Worksheets("Liste_Fournisseurs")
    Range("I12:I1048576").Select
    ActiveWorkbook.Worksheets("Liste_Fournisseurs").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Liste_Fournisseurs").Sort.SortFields.Add Key:=Range("I12"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With Worksheets("Liste_Fournisseurs").Sort
        .SetRange Range("C12:I1048576")
        .Apply
       End With
    End With
    Range("A1").Select
Merci par avance

Cordialement