bonjour,
l'erreur 1004 provient de l'instruction
NbDéparts = Application.Ceiling(TotalJoueurs / 4)
pour laquelle il manque un paramètre. Je suppose qu'il faut arrondir au multiple de 1, donc adapter l'instruction ainsi :
NbDéparts = Application.Ceiling(TotalJoueurs / 4,1)
mais il doit y avoir une erreur de logique dans la macro car elle part en boucle infinie.
Pour corriger le code, il faudrait connaitre les contraintes du tirage au sort.