Re bonjour,
Ton code fonctionne impeccablement.
Toutefois, je pense que cela nécessite des explications, je pense notamment aux scripts suivants :
Dim arr()
ReDim arr(1 To Duree, 1 To 6)
Je comprends en partie ton code mais quelques explications complémentaires seraient un plus.
C'est un peu abstrait pour moi.
Je te souhaite une excellente journée.