XL 2010 chercher doublons et les copiez

Bonjour à tous,

Merci pour les différentes propositions, toujours vraiment agréable de lire des propositions variées et bien construites.

@laetitia90 : sublime code synthétique pour les doublons
... et qu'on peut facilement adapter pour extraire soit les doublons soit les valeurs uniques (If m.Item(t(i, 2)) = 1).

On peut peut-être très légèrement le compléter si adkheir souhaite l'utiliser pour l'affichage final par trois lignes pour :
Feuil1.Range("A1:F1").Copy Destination:=Feuil2.Range("J1:O1") 'rajout des titres
Feuil2.[j1].Sort key1:=Feuil2.[k2], Order1:=xlAscending, Header:=xlGuess 'tri ordre ascendant
Feuil2.Columns("J:O").AutoFit 'taille ajustée colonne

Mais merci pour ce code très performant (as usual -)
Bonne journée
zebanx

re tous,bonjour chris, bonjour zebanx

desole chris j'avais pas vu autre post de adkheir

zebanx bonne remarque... bien sur on peut ameliorer titre dans ordre alpha ect...

il y a tellement de methode pour ecrire cela

tu remarques que j'ai mis ....m.Item(t(i, 2)) on peut trés bien écrire m(t(i, 2)) cela simplifie un peu mais bon
bonne journée