tu peux solutionner ce bug en utilisant apres ton tri un recalcul de la feuille :
ActiveSheet.Calculate

Pour moi ca marche :-)