gérer les matchs de chaque poules

Bonjour, je travaille sur l'organisation d'un tournoi sportif, pour cela j'aimerais qu'en fonction du nombre d'équipes et de poules, permettre a chaque équipe de chacune des poules de se rencontrer.
J'ai déjà effectuer un macro qui places les equipes dans chaque poule mais je n'arrive pas a faire une rencontre des equipes pour chaque poule.
Voici mon macro qui établies la liste des équipes par poule.
Si vous avez des conseils ou une solution je suis preneur ! merci d'avance
Sub distributionPoules()

Sheets("Equipe").Range("D2").Value = "nombre poules :"
f = Sheets("Equipe").Range("E2") 'Poule
Sheets("Equipe").Range("D3").Value = "nombre equipe :"
m = Sheets("Equipe").Range("E3") 'equipe
k = m / f
n = 2
h = 1

For l = h To f
Sheets("Poule").Cells(1, l) = "Poule " & l
For m = 2 To k + 1
Sheets("Poule").Cells(m, l) = Sheets("Equipe").Cells(n, 1)
n = n + 1

Next
Next

End Sub