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