bonjour Lo
pour ce qui est du message de la variable non définie il s'agit d'un probleme de version d'excel . je viens de faire un essai avec excel97 et cela fonctionne en remplaçant
Range("A2:J" & k).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
par
Range("A2:J" & k).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
pour tes autres messages d'erreur je pense que c'est lié à la ListView qui n'est pas reconnue par ta version d'excel . Sur mon vieux poste équipé avec Win98 et Excel97 j'arrive à faire fonctionner la procedure
tu peux eventuellement faire des essais apres avoir activé la reference
Microsoft Forms 2.0 Object Library
si des âmes charitables sont disponibles pour faire d'autres tests , je suis interessé pour connaitre les versions qui fonctionnent ou pas .
sinon as tu la possibilité de placer un fichier zippé sur le forum pour visualiser ton USF d'origine
bonne soiree
MichelXld