Sub Tirage2()
'
' formule de camemarchepas
'
Dim Sort As Long, Personne As Long, Nombre As Long, Tourne As Long, Vue As Long
Dim Dictio As Object
Personne = TIRAGELISTING.Range("N" & Rows.Count).End(xlUp).Row
' au depart à la place de TIAGELISTING il y avait Feuil1 car ce code était sur "Feuil1" dans le classeur
Nombre = InputBox("Combien de personnes à trouver")
If Nombre > Personne Then MsgBox " Impossible, pas assez de personnes disponibles": Exit Sub
Set Dictio = CreateObject("Scripting.Dictionary")
For Tourne = 1 To Nombre
Do
Sort = Int(Rnd(Timer) * Personne) + 1
Dictio(Range("N" & Sort).Value) = ""
Vue = Dictio.Count
Loop Until Dictio.Count = Tourne
Next Tourne
Range("O2").Resize(Dictio.Count, 1) = Application.Transpose(Dictio.keys)
End Sub