Алгоритм сортировки

Коллега (Эрве) написал на VBA программу поиска уникальных элементов в массиве: создать в текущем файле Excel новую закладку, скопировать туда в цикле значения массива, отсортировать методом Range.Sort, прогнать по списку и каждый раз, когда значение меняется, копировать его назад в таблицу. Ну и уничтожить закладку в конце.

При этом он корректно отрабатывает Application.ScreenUpdating, ReDim Preserve и т.п.