bonjour

voila j'ai un autre petit soucis concernant un tableau de données
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
designation          quantité
itemA	                   1
itemA                      1
itemA                      1
itemB                      1
itemB                      1
itemC                      2
itemD                      1
itemD                      1
itemD                      3
itemD                      2
je voudrais trier ce tableau en regroupant les items et additionner les quantités

voici ce que jai pour l'instant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
For i = 0 To 2000
 If Range("C" & i).Text = Range("C" & i - 1).Text Then
 
            Rows(i).Select
            Selection.Delete Shift:=xlShiftUp
            Range("D" & i - 1).Value = Range("D" & i - 1).Value + 1
            End If
    Next
ceci marche a ceci pres que au dela de 2 items identiques ca ne regroupe uniquement par deux et non globalement

voila si qq voit comment faire
merci davance
@++