Bonsoir,
Oui, cela à résolu le pb.
Mais le double clique sur classement fait un débogage, à la ligne suivante :
ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Add2 Key:=Range( _
"I2:I" & fin), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal