Bonjour
je suis encore sur la proposition de Jacky67 qui me convient plus , mais je n'arrive pas a adapter son code sur mon fichier pourriez vous me dire ou sont mes erreurs , le trie des doublons est bien fait , mais pas la somme et j’aimerai recopier les colonnes
Merci d'avance
Sub Extration()
Sheets("Feuil1").Columns("B:T,V:AR").Copy Sheets("Feuil2").Columns(1)
End With
Dim Derlg&, Derlg1&
Sheets("Feuil2").Range("A:A,U:U").ClearContents
With Sheets("Feuil1")
Derlg = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("A1:A" & Derlg).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("Feuil2!A1"), Unique:=True
End With
With Sheets("Feuil2")
Derlg1 = .Cells(.Rows.Count, "A").End(xlUp).Row
Range("U2:U" & Derlg1).Formula =_
"SUMPRODUCT((Feuil1!$a$2:$a$"&Derlg & "=$a2)*Feuil1!$u$2:$u$" & Derlg & ")"
.Range("U2:U" & Derlg1).Value = .Range("U2:U" & Derlg1).Value
.[u1] = "(Objet actuel)Poids Brut en Kg"
End With
End Sub