Private Sub CommandButton1_Click()
Dim I As Byte, Target As Range, LAt As New ListeAléat, TNomsE(), TNomsS(), LMax As Long, L As Long
For I = 1 To 3
If Me("OptionButton" & I) Then
Set Target = Feuil1.Cells.Find("Tirage " & I, , xlValues, xlWhole)
Exit For: End If
Next I
If Target Is Nothing Then Exit Sub
TNomsE = Target(2, 0).Resize(Target(1000000, 0).End(xlUp).Row - 1).Value
Randomize
LAt.Init UBound(TNomsE, 1)
LMax = Target(1, 2).Value
ReDim TNomsS(1 To LMax, 1 To 1)
For L = 1 To LMax
TNomsS(L, 1) = TNomsE(LAt.Aléat(L), 1)
Next L
Target(2, 1).Resize(1000).ClearContents
Target(2, 1).Resize(LMax).Value = TNomsS
End Sub