Bonsoir,
votre colonne B de la nouvelle feuille suite à ceci :
Columns("B").Select
reste sélectionnée, du coup lors de la mise en place du filtre, celui-ci se fait uniquement sur cette colonne à partir de la ligne 1, du coup avec les 4 lignes de données vides, vu que la 5ième sert aux entêtes, le tri provoque un décalage vers le Haut.
Pour la mise en place de votre tri vous pouvez sélectionner A5.usedrange pour sélectionner votre plage de données :
'Début du Filtre/Trie croissant
Range("A5").CurrentRegion.AutoFilter
@ bientôt
LouReeD