Merci, pour cette explication,
Si je peut encore abusé de votre savoir?
ActiveWorkbook.Worksheets("A commander").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("A commander").Sort.SortFields.Add Key:=Range("C5") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("A commander").Sort
.SetRange Range("A5:C" & Range("A" & Rows.Count).End(xlUp).Row)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Merci vraiment.