Sub PoulesChapeau()
Dim Ta() As Byte, i As Byte, j As Byte, k As Byte, r As Byte, a As Byte, b As Byte
Randomize
For i = 1 To 4
ReDim Ta(7)
For j = 1 To 8
r = Int((9 - j) * Rnd) + 1: a = 0
For k = 0 To 7
a = a + (1 - Ta(k))
If a = r Then Ta(k) = 1: Exit For
Next k
b = Int((j - 1) / 4)
Worksheets("TAS").Cells(15 + i + 6 * b, 2 + j - 4 * b) = Worksheets("TAS").Cells(4 + k, 2 + i)
Next j, i
End Sub