Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.

Sub RechercherefDesSomQtesTot()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim refCell As Range
    Dim dict As Object
    Dim ref As Variant
    Dim qty As Double
    Dim totalQty As Double
    Dim resultRow As Long

    ' Définir la feuille de calcul
    Set ws = ThisWorkbook.Sheets("Feuil1")

    ' Dernière ligne de données dans la colonne C
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row

    ' Initialiser un dictionnaire pour stocker les références et les quantités
    Set dict = CreateObject("Scripting.Dictionary")
    
Application.ScreenUpdating = False

    ' Écriture des résultats triés dans la colonne H
    ws.Range("I5").Value = "REFERENCES"
    ws.Range("J5").Value = "DESIGNATIONS"
    ws.Range("K5").Value = "QUANTITE TOTALES"

    ' Parcourir les lignes de la colonne C
    For Each refCell In ws.Range("C6:C" & lastRow)
        ' Vérifier que la cellule n'est pas vide
        If Not IsEmpty(refCell.Value) Then
            ref = refCell.Value
            qty = refCell.Offset(0, 1).Value ' Qté est dans la colonne D

            ' Vérifier si la référence est déjà dans le dictionnaire
            If dict.Exists(ref) Then
                ' Ajouter la quantité à la référence existante
                dict(ref) = dict(ref) + qty
            Else
                ' Ajouter la référence au dictionnaire avec la quantité
                dict.Add ref, qty
            End If
        End If
    Next refCell

    ' Afficher les résultats dans les colonnes I, J et K à partir de la ligne 6
    resultRow = 6
    For Each ref In dict.keys
        ws.Cells(resultRow, "I").Value = ref ' Référence
        ws.Cells(resultRow, "J").Value = ws.Cells(ws.Range("C:C").Find(what:=ref, LookIn:=xlValues).Row, "B").Value ' Valeur associée en colonne B
        ws.Cells(resultRow, "K").Value = dict(ref) ' Somme des quantités
        resultRow = resultRow + 1
    Next ref

    ' Libérer la mémoire du dictionnaire
    Set dict = Nothing

    ' Appel à une procédure de formatage si nécessaire
    AppliquerFormat
    
Application.ScreenUpdating = True

    MsgBox "Traitement terminé !"
End Sub

Private Sub Workbook_Open()
    WB_Base = ThisWorkbook.Name
    'MsgBox WB_Base
End Sub

Option Explicit

Public ws As Worksheet
Public lastRow As Long
Public refCell As Range
Public dict As Object
Public ref As Variant
Public qty As Double
Public totalQty As Double
Public resultRow As Long
Public CheminFichier As String
Public NomDuFichierBase As String
Public wb As Workbook
Public WB_Base As String

Sub RechercherefDesSomQtesTot()

'Définir le chemin du fichier
CheminFichier = "C:\Users\jz52353491\OneDrive-Conduent\BANCS\'MODEL-SORTIES MATERIEL-Procedures VBA.xlsm"

WB_Base = ThisWorkbook.Name

MsgBox CheminFichier 'OK
MsgBox WB_Base 'OK

' Ouvrir le classeur et l'assigner à la variable publique
'Set wb = Workbooks.Open(CheminFichier)

Application.ScreenUpdating = False

Application.Run "CheminFichier!Mdl_RechercheRefDesSomQtesTot.RechercherefDesSomQtesTot"

Application.ScreenUpdating = True

MsgBox "Traitement terminé !"

End Sub