Tri de 2 colonnes ensemble

bonjour

voila j'ai un tableau de plusieurs colonnes dont I et L

j'utilise ça pour mon tri

ActiveWorkbook.Worksheets(NomFeuille).Sort.SortFields.Add Key:=Range("L2:L99"), _

SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

ActiveWorkbook.Worksheets(NomFeuille).Sort.SortFields.Add Key:=Range("I2:I99"), _

SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

sauf que je voudrais un tri sur les 2 en même temps du plus petit des 2 au plus grands

si possible merci

j'ajoute un exemple pour expliquer mieux j’espère ce que je souhaite

Bonjour

A tester :

Sub Trier()
Application.ScreenUpdating = False
Dim derlg As Integer

derlg = Range("A65536").End(xlUp).Row

For i = 2 To derlg
Range("M" & i).FormulaR1C1 = "=MIN(RC9:RC12)"
Next i

Range("A2:M" & derlg).Sort Key1:=Range("M2")

Columns(13).Delete
End Sub

Amicalement

Nad