Bonjour,
Tout d'abord, quand j'ai ouvert ton fichier, j'ai eu le message suivant :
Ca n'a pas empêché l'ouverture cependant.
Ensuite, concernant le code, tu peux ôter la ligne suivante qui ne sert à rien :
ActiveWindow.SmallScroll Down:=-177
Enfin, concernant ton problème de feuille Volume qui ne marche pas, change le code de la manière suivante :
Range("A8:P43").AdvancedFilter Action:=xlFilterCopy, Criteriarange:=Range( _
"A47:P48"), CopyToRange:=Range("A50:P51"), Unique:=True
J'ai essayé, ça marche. Ca doit être parce qu'il n'y a qu'une seule ligne à extraire dans cette feuille.
Cordialement,
v_Elbie