Sub Tirage2()
Dim maxi&, tablo, dico, x, i&
Randomize
maxi = 200
qte = [Quantité]
Set dico = CreateObject("scripting.dictionary")
With [Nombres]
.ClearContents
tablo = Application.Transpose(.Resize(qte, 1).Value)
Do: dico(1 + (Round(Rnd * (maxi - 1)))) = "": Loop Until dico.Count = qte
.Resize(qte, 1).Value = Application.Transpose(dico.keys)
End With
End Sub