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