bonsoir
voici une macro qui fait le tri
Sub triik()
Set ws = Sheets("feuil1")
dl = ws.Cells(Rows.Count, "K").End(xlUp).Row
With ws.Sort
.SortFields.Clear
.SortFields.Add Key:=Range("K2:K" & dl) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("I2:I" & dl) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange Range("A2:K" & dl)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub