Extraction de données sans duplication avec somme

Salutations ,

J'ai beaucoup aimé le modèle présenté par monsieur Steelson dans ce sujet ici .

J'ai utilisé le même fichier pour les valeurs en double dans la colonne B, j'ai également créé une colonne C avec les valeurs associées .

Je voudrais utiliser la macro modèle du monsieur Steelson pour présenter les résultats sans doublons , Je souhaite également que les valeurs de la colonne C soient ajoutées pour chaque résultat unique .

nota: joint le fichier modifié . Je vous remercie pour votre aide

Bonjour,

pas de Monsieur dans le forum, c'est pompeux ! je vais regarder ce sujet.

Sub répartir()
Dim f As Worksheet, categ As ListObject, existeICI As Range
Set f = ActiveSheet
Set categ = f.ListObjects("_categ")

    If Not f.ListObjects("_M1").DataBodyRange Is Nothing Then f.ListObjects("_M1").DataBodyRange.Delete
    If Not f.ListObjects("_M2").DataBodyRange Is Nothing Then f.ListObjects("_M2").DataBodyRange.Delete
    If Not f.ListObjects("_M3").DataBodyRange Is Nothing Then f.ListObjects("_M3").DataBodyRange.Delete
    For i = 1 To categ.ListRows.Count
        With f.ListObjects("_" & categ.DataBodyRange.Cells(i, 1))
            Set existeICI = Nothing
            If Not .DataBodyRange Is Nothing Then
                Set existeICI = .ListColumns(1).DataBodyRange.Find(categ.DataBodyRange.Cells(i, 2).Value)
            End If
            If existeICI Is Nothing Then
                .ListRows.Add
                .DataBodyRange.Cells(.ListRows.Count, 1) = categ.DataBodyRange.Cells(i, 2).Value
                .DataBodyRange.Cells(.ListRows.Count, 2) = categ.DataBodyRange.Cells(i, 3).Value
            End If
            Set existeICI = Nothing
        End With
    Next

End Sub

Tu m'as aidé , merci beaucoup Steelson pour l'aide .