Composer 2 équipe aléatoire

Bonjour à tous,

Tout d'abord un grand bravo pour votre forum qui m'a très souvent sorti de la panade !

Mon problème est le suivant :

Je voudrais générer deux équipes aléatoirement composées d'un nombre X de joueurs présent dans une colonne. Voilà la fonctionnalité basique que je souhaite obtenir.

Après j'ai des idées d'amélioration mais c'est optionnel :

• choix du nombre d'équipes
• distinction garçons/filles pour faire des équipes mixtes à l'aide d'une colonne contenant G ou F par exemple
• équilibrer les équipes en attribuant une note sur 10 par exemple à un joueur et en tenir compte pour la répartition

Évidemment il faudrait que la macro demande à l'utilisateur, nombre d'équipes, nombres de joueurs, filles ou garçons....

Toute proposition sera la bienvenue et évidemment grandement appréciée !

Merci à tous et encore bravo pour ce que vous faites.

Bien Cordialement,

Voici le fichier que j'aimerais compléter.

Merci d'avance,

Voilà j'ai un peu avancé mon fichier mais je bloque pour équilibrer les équipes à 5 joueurs dans chacunes...

Bonsoir,

une proposition de composition de 2 équipes de n/2 joueurs sur base d'une liste de n joueurs

Sub tirage()
    Dim a()
    nbj = Cells(Rows.Count, 1).End(xlUp).Row
    If nbj Mod 2 = 0 Then MsgBox "il faut un nombre pair de joueurs": Exit Sub
    ReDim a(nbj)
    Range("b2:C" & nbj).ClearContents
    nbj = nbj - 1
    For i = 1 To nbj
        a(i) = i
    Next i
    For i = nbj To 1 Step -1
        q = Application.RandBetween(1, i)
        p = a(q)
        a(q) = a(nbj)
        a(nbj) = p
    Next i
    k = 1
    For i = 1 To nbj
        k = k + i Mod 2
        Cells(k, i Mod 2 + 2) = Cells(a(i) + 1, 1)
    Next i
End Sub