XL 2010 Une aide sur "Scripting.Dictionary"

Public Sub Suite_traitement()
With Sheets("global 2016")
Set mondico = CreateObject("Scripting.Dictionary")
     For Each c In .Range("B6", .[B65000].End(xlUp))
        If c <> "" Then
            temp = c & " -    " & NSem(c.Offset(, 5)) 'designation à rechercher
                If (mondico.exists(temp)) Then
                    mondico(temp) = mondico(temp) + 1
                    Else: mondico(temp) = 1
                End If
            End If
        Next c
    .Cells(6, 8).Resize(mondico.Count).Value = Application.Transpose(mondico.keys) 'ecriture en col 8 la col 2 et col semaine de col 7
    .Cells(6, 9).Resize(mondico.Count).Value = Application.Transpose(mondico.items) 'ecriture en col 9 le nb de repetition du même nom dans la même semaine
    t = Application.Transpose(mondico.keys)
        For i = LBound(t) To UBound(t)
            .Cells(5 + i, "K").Resize(, 2).Value = Split(Replace(t(i, 1), " ", ""), "-")
            .Cells(5 + i, "L").Value = CDbl(.Cells(5 + i, "L").Value)
        Next i
End With
End Sub

    Dim Montab
    ReDim Montab(mondico.Count, 3)
    For Each clé In mondico.keys
        x = x + 1
        Valeurs = Split(clé, " -    ")
        Montab(x, 1) = Valeurs(0)
        Montab(x, 3) = Valeurs(1)
    Next
    Sheets("global 2016").Cells(6, 11).Resize(UBound(Montab), 3) = Montab

Public Sub Suite_traitement()
     Dim T() As Variant, Kys As Variant
     Dim c As Range, numsem As Long, temp As Variant
     Dim i As Long, mondico As Object
     
     Set mondico = CreateObject("Scripting.Dictionary")
        For Each c In Range("B6", [B65000].End(xlUp))
            If c <> "" Then
                numsem = NSem(c.Offset(, 5))
                temp = c & " -    " & numsem 'designation à rechercher
                mondico(temp) = mondico(temp) + 1
            End If
        Next c
    ReDim T(1 To mondico.Count, 1 To 5)
    For Each Kys In mondico.Keys
        i = i + 1
        temp = Split(Kys, "-")
        T(i, 1) = Kys
        T(i, 2) = mondico(Kys)
        T(i, 4) = Trim(temp(0))
        T(i, 5) = Trim(temp(1))
    Next Kys
    Sheets("global 2016").Cells(6, 8).Resize(UBound(T, 1), UBound(T, 2)) = T
End Sub

Public Sub Suite_traitement()
Dim c As Range, numsem As Long, temp As Variant
Dim mondico As Object, w()
    Set mondico = CreateObject("Scripting.Dictionary")
    mondico.CompareMode = 1
    For Each c In Range("B6", [B65000].End(xlUp))
        If c <> "" Then
            numsem = NSem(c.Offset(, 5))
            temp = c & " -    " & numsem     'designation à rechercher
            If Not mondico.exists(temp) Then
                mondico(temp) = VBA.Array(temp, 1, Empty, c.Value, numsem)
            Else
                w = mondico(temp)
                w(1) = w(1) + 1
                mondico(temp) = w
            End If
        End If
    Next c
    Sheets("global 2016").Cells(6, 8).Resize(mondico.Count, 5).Value = _
    Application.Transpose(Application.Transpose(mondico.items))
End Sub

Public Sub Suite_traitement()
Dim numsem&, i&, temp$
Dim T() As Variant, mondico As Object
Set mondico = CreateObject("Scripting.Dictionary")
T = Range("B6", [B65000].End(xlUp)(1, 6))
For i = LBound(T, 1) To UBound(T, 1)
    If T(i, 1) <> "" Then
        numsem = NSem(CDate(T(i, 6)))
        temp = T(i, 1) & " -    " & numsem
        If Not mondico.exists(temp) Then
            mondico(temp) = mondico.Count + 1
            T(mondico(temp), 4) = T(i, 1)
            T(mondico(temp), 1) = temp
            T(mondico(temp), 3) = ""
            T(mondico(temp), 5) = numsem
        End If
        T(mondico(temp), 2) = T(mondico(temp), 2) + 1
    End If
Next i
Sheets("global 2016").Cells(6, 8).Resize(mondico.Count, 5) = T
End Sub

Public Sub Suite_traitement()
Dim numsem&, i&, temp$
Dim T() As Variant, mondico As Object
Set mondico = CreateObject("Scripting.Dictionary")
T = Range("B6", [B65000].End(xlUp)(1, 6))
For i = LBound(T, 1) To UBound(T, 1)
    If T(i, 1) <> "" Then
        numsem = NSem(CDate(T(i, 6)))
        temp = T(i, 1) & " -    " & numsem
        If Not mondico.exists(temp) Then
            mondico(temp) = mondico.Count + 1
            T(mondico(temp), 4) = T(i, 1)
            T(mondico(temp), 1) = temp
            T(mondico(temp), 2) = 0
            T(mondico(temp), 3) = ""
            T(mondico(temp), 5) = numsem
        End If
        T(mondico(temp), 2) = T(mondico(temp), 2) + 1
    End If
Next i
Sheets("global 2016").Cells(6, 8).Resize(mondico.Count, 5) = T
End Sub

mondico.CompareMode = 1

mondico.CompareMode = 0