XL 2021 Créer une macro pour faire un tirage aléatoire d'un tournoi

[marco22]

Bonjour
J'essai de faire une macro pour réaliser un tirage aléatoire lors de la première partie d'un tournoi (je joins le fichier).
Dans la feuille 1ère partie depuis la cellule (D5) je veux faire un tirage aléatoire et je voudrais copier en descendant selon le nombre de joueurs cellule (D3) puis faire un copier coller les valeurs aux cellules en descendant.
Le nombre d'équipes peut varier de quelques équipes a + de 100 équipes

 

[gbinforme]

Bonjour,
Je te propose cette macro qui donne le résultat sans double en colonne D

 

[marco22]

Merci mais le problème c'est dès que l'on change le nombre d'équipes ça ne fonctionne pas
j'ai fini par trouver la solution

Sub Tirage_1()
' Tirage_1 Macro
' Tirage du premier tour
ActiveSheet.Unprotect
Range("D51000").ClearContents
DL = Range("C65500").End(xlUp).Row
Range("D5" & DL).FormulaR1C1 = "=IF(RC[-1]="""","""",RAND())"
Range("D5" & DL) = Range("D5" & DL).Value
ActiveSheet.Protect 'DrawingObjects:=False, Contents:=True, Scenarios:=False
End Sub

Avec cette macro ça marche je peux changer le nombre d'équipe
merci quand même
@+m@rco