Tri des groupes de valeurs en regard de leurs lignes... bis

Bonjour

A l'aide de la recherche dans le forum, je ne retrouve plus l'historique de ce dossier, je le recrée....
Le fichier que Pierre m'a fait a marché impec jusque aujourd'hui
Merci encore Pierre
Mais aujourd'hui je trie des valeurs plus importantes et la macro me donne une erreur sur cette ligne :
.Cells(ligne, I).NumberFormat = "###.000"
Je vous joints la macro si vous pouviez m'aider ce serait sympa

Merci d'avance
Eric