Je cherche à simplifier une macro

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:

---

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

Bonjour,

Code:

---

1 2 3 4

With Worksheets("Liste_Fournisseurs") .Sort.SetRange Range("C12:I" & Rows.Count) .Sort.Apply End With

---

Merci l'ami c'est gentil ;)