[Staple1600]

Ce que je suggèrais

c'était de nommer de manière dynamique la zone de critère
(Insertion/Nom/Crits
avec une formule 'dynamique'
qui fait varier la zone de nom Crits
en ne prenant toujours que la permière et dernoère valeur.
qu'il faut que je retrouve)

ce qui permet de
Type:=xlFillDefault
Range('A10412').AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Crits
CopyToRange:=Range('A12271227'), Unique:=False