Sub test()
Randomize
tablo = Range("A1:F1000")
For n = LBound(tablo, 1) To UBound(tablo, 1)
For m = LBound(tablo, 2) To UBound(tablo, 2)
tablo(n, m) = Int(6 * Rnd + 1)
Next
Next
Range("A1").Resize(1000, 6) = tablo
Dim tablo1(1 To 6, 1 To 6)
For n = LBound(tablo, 1) To UBound(tablo, 1)
For m = LBound(tablo, 2) To UBound(tablo, 2)
l = tablo(n, m)
tablo1(m, l) = tablo1(m, l) + 1
Next
Next
Range("K2").Resize(6, 6) = tablo1
End Sub