Tirage aléatoire dans une autre feuille

[jacky49]

bonsoir,

Je bloque sur cette macro pour pouvoir faire un tirage par poule aléatoire mais par contre ou le tirage se place en feuille série.
Je joins un fichier
Merci d'avance

Sub testSM()
Sheets("Série").Range("B7:R12").ClearContents
'nbdossards = Range("A65536").End(xlUp).Row - 4
'If Int((nbdossards) / 6) <> ((nbdossards) / 6) Then
  'nombredepoules = Int((nbdossards) / 6) + 1
'Else
  'nombredepoules = (nbdossards) / 6
'End If
'Range("i6") = nombredepoules
If Range("i6") <> "" Then
  nombredepoules = Range("i6")
Else
  MsgBox ("Donnez le nombre de poules")
  Exit Sub
End If
ligne = 7
col = 2
pas = 3
For n = 6 To Range("A65536").End(xlUp).Row
  Sheets("Série").Cells(ligne, col) = Range("A" & n)
  col = col + pas
  If col = 2 + 3 * nombredepoules Or col = -1 Then
    ligne = ligne + 1
    col = col - pas
    pas = -pas
  End If
Next n
Sheets("Série").Select
End Sub