Suppression doublon

Bonjour,

J'ai enregistrer une macro avec la formule somme si ens.

La macro fonctionne bien , elle fait ce qu'on lui demande.

Mon soucis est le suivant , si je rajoute des lignes elle ne seront pas prises en compte et si j'augmente la valeur de ma colonne B j'obtiens des 0.

Sub Suppression_doublon()
'
' Suppression_doublon
'

'
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "LIGNE.Quantite"
    Sheets("Feuil1").Select
    Sheets("Feuil1").Copy After:=Sheets(1)
    Columns("B:B").Select
    Selection.ClearContents
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "LIGNE.Quantite"
    Range("B2").Select
    ActiveSheet.Range("$A$1:$B$21").RemoveDuplicates Columns:=Array(1, 2), Header _
        :=xlNo
    ActiveCell.FormulaR1C1 = "=SUMIFS(Feuil1!C,Feuil1!C[-1],@'Feuil1 (2)'!C[-1])"
    Selection.AutoFill Destination:=Range("B2:B18")
    Range("B2:B18").Select
End Sub

Si quelqu'un pouvait m'éclairer sur les valeurs à entrer.

Merci

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Bonjour gmb,

Merci pour ton retour, en fait le fait de créer une autre feuille me convenait puisque je vais l'exporter en csv.

Mon problème si on rajoute une ligne elle n'est pas prise en compte puis la formule s’arrête à 28, et si j'augmente le nombre dans la formule au delà de la dernière ligne ça la rempli par des zéros.