...
Dim MonDico, MonDico2
Set MonDico = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(tablo)
For j = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(j) Then
If ListBox1.List(j) = CDate(tablo(i, 1)) Then
If tablo(i, 5) = "X" Then NbX = NbX + 1
If tablo(i, 5) = "" Then Nb = Nb + 1
If tablo(i, 6) = "OUI" Then Nboui = Nboui + 1
If tablo(i, 4) > 0 Then TotP = TotP + tablo(i, 4)
If tablo(i, 4) < 0 Then TotN = TotN + tablo(i, 4)
MonDico(tablo(i, 7)) = MonDico(tablo(i, 7)) + 1
End If
End If
Next j
Next i
TextBox1 = NbX
TextBox4 = Nboui
TextBox2 = TotP
TextBox3 = TotN
TextBox5 = Nb
Set MonDico2 = CreateObject("Scripting.Dictionary")
For Each C In MonDico.keys
If MonDico(C) = 1 Then MonDico2(C) = ""
Next
TextBox6 = MonDico2.Count
...