T'es parti ou t'es fâché? J'espère que non! ma petite diatribe d'hier était juste pour rire, bien évidemment.
Je voudrais soumettre à ta sagacité cette suggestion, en espérant qu'elle n'est pas sotte.
Au lieu de trier 65 536 Lignes, ne serait-il pas judicieux de déterminer la dernière utilisée, et de trier seulement L6-Lx.
Par exemple en mettant ce code après avoir rentré tous les éléments:
DernièreL = Range('A6').SpecialCells(xlLastCell).Row 'détermine la dernière ligne
.....
'Puis utiliser ce terme pour sélectionner ou trier les zones:
Range(Range('A6'), Range('A6').Offset(DernièreL, 10)).Select
'ou
Range(Range('R6'), Range('R6').Offset(DernièreL, 10)).Select
'ou encore
Range(Range('R6'), Range('R6').Offset(DernièreL, 10)).Sort Key...
et pareil pour For Chang = 6 To 3000 qui peut devenir:
For Chang = 6 To DernièreL
Qu'en penses-tu?
A+