Sub la_ligue()
tab_voy = Split("a/e/i/o/u/y", "/")
debut = "La ligue des "
milieu = "Ce"
For i = 1 To 100
Cells(i, 1) = debut & milieu _
& Mid("bcdfghjklmnpqrstvwxz", Int(Rnd * 20) + 1, 1) _
& tab_voy(Int(Rnd * 5)) _
& Mid("bcdfghjklmnpqrstvwxz", Int(Rnd * 20) + 1, 1) _
& tab_voy(Int(Rnd * 5))
Next
End Sub