Es ce cette macro qui permet la recherche des triplet je commence à me perdre!!
Sub Compter()
Dim res(1 To 49, 1 To 10), t, i&, j&
t = Range("e2:j" & Cells(Rows.Count, "j").End(xlUp).Row)
For i = 1 To UBound(t): For j = 1 To 5
res(t(i, j), t(i, 6)) = res(t(i, j), t(i, 6)) + 1
Next j, i
Range("o2").Resize(49, 10) = res
End Sub