[COLOR="DarkSlateGray"]Sub tirage()
Dim planches As New Collection, n As Long, x As Long
Randomize
For n = 1 To 200
planches.Add Item:=Array(n, Int((15 * Rnd) + 1))
Next n
Randomize
For n = 200 To 1 Step -1
x = Int((n * Rnd) + 1)
Cells(n + 1, 2).Resize(1, 2) = planches(x)
planches.Remove x
Next n
End Sub[/COLOR]