Sub tirage()
Dim Joueurs As Integer
Dim Pointeur As Integer
Columns('A:A').Select
Selection.ClearContents
Range('A1').Select
Joueurs = InputBox('Nombre de joueurs')
Cells(1, 1) = Joueurs
Pointeur = 2
While Joueurs > 0
Select Case Joueurs
Case Is > 9
Joueurs = Joueurs - 4
Cells(Pointeur, 1) = 4
Pointeur = Pointeur + 1
Case 9
Joueurs = Joueurs - 3
Cells(Pointeur, 1) = 3
Pointeur = Pointeur + 1
Joueurs = Joueurs - 3
Cells(Pointeur, 1) = 3
Pointeur = Pointeur + 1
Joueurs = Joueurs - 3
Cells(Pointeur, 1) = 3
Pointeur = Pointeur + 1
Case 8
Joueurs = Joueurs - 4
Cells(Pointeur, 1) = 4
Pointeur = Pointeur + 1
Joueurs = Joueurs - 4
Cells(Pointeur, 1) = 4
Pointeur = Pointeur + 1
Case 7
Joueurs = Joueurs - 4
Cells(Pointeur, 1) = 4
Pointeur = Pointeur + 1
Joueurs = Joueurs - 3
Cells(Pointeur, 1) = 3
Pointeur = Pointeur + 1
Case 6
Joueurs = Joueurs - 3
Cells(Pointeur, 1) = 3
Pointeur = Pointeur + 1
Joueurs = Joueurs - 3
Cells(Pointeur, 1) = 3
Pointeur = Pointeur + 1
End Select
Wend
End Sub