Rem. ——— Chargement du tableau des noms des participants.
Set LOt = WshInscrip.ListObjects(1)
TNomsJ = LOt.ListColumns("Noms").DataBodyRange.Value
JMax = UBound(TNomsJ, 1): MMax = 4
Rem. ——— Exécute le tirage en indiquant s'il a réussi et si le tableau Tirage est donc garni.
If Tirage3vs3OK(NbJrs:=JMax, Manches:=MMax, TousJouent:=True, RMargs:=LOt.ListColumns("Enfant").DataBodyRange) Then