Ordre selon tirage aléatoire

Salut le forum,

j'ai un tableau en VBA (Public joueurs(1 to 6) as String) et ses valeurs lui sont attribuées à partir de textbox (TXT_joueur1 à TXT_joueur6).

J'ai aussi une variable nombre_joueurs qui varient entre 2 et 6.

For x = 1 to nombre_joueurs 
joueurs(x) = Me.Controls("TXT_joueur" & x).Text
Next

Le joueur qui commence est ensuite désigné par un tirage aléatoire.

Dans une plage (ici : Worksheets("Données").Range("C2:C7"), j'inscris en C2, le nom du joueur qui a le meilleur résultat du tirage.

Mon problème est le suivant : comment, à partir du moment où je connais le premier joueur, puis-je inscrire les joueurs suivants en sachant que si le premier jouer qui commence est le 4e par exemple, les suivants seront dans l'ordre : 5e, 6e, 1er, 2e et 3e.

Je dois aussi tenir compte du fait qu'il peut y avoir moins de joueurs.

Merci pour votre aide.

Voilà!

Pour ceux que ça pourrait intéressé, j'y suis parvenu avec ce code :

Worksheets("Données").Cells(2, 3).Value = Application.WorksheetFunction.VLookup(1, Worksheets("Données").Range("A2:B7"), 2, False)

For x = 1 To nombre_joueurs
     If Worksheets("Données").Cells(2, 3).Value = joueurs(x) Then premier_joueur = x
Next

y = 3
For x = 1 To nombre_joueurs
     premier_joueur = premier_joueur + 1
     If premier_joueur > nombre_joueurs Then premier_joueur = 1
     If joueurs(premier_joueur) = Worksheets("Données").Cells(2, 3).Value Then Exit For
     Worksheets("Données").Cells(y, 3).Value = joueurs(premier_joueur)
     y = y + 1
Next