Cylfo,
après quelques bidouilles, j'ai enlevé le 2 de là ou ça bloquait :
With ThisWorkbook.Worksheets("Courses").Sort
.SortFields.Clear
.SortFields.Add (2) Key:=Range(cColTri), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange Range(cPlageTri)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Maintenant, cela fonctionne super nikel, je te remercie pour ton investissement.
merci et bien à toi.