J'ai bien aidé, là.... et en plus cette ligue, c pour vous prouver notre émerveillement devant vos créations.La
Ligue
(des)
Ce
Ra
des
Fa
O
Sub la_ligue()
tab_voy = Split("a/e/i/o/u", "/")
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 * 4)) _
& Mid("bcdfghjklmnpqrstvwxz", Int(Rnd * 20) + 1, 1) _
& tab_voy(Int(Rnd * 4))
Next
End Sub
End Sub
="La ligue des Ce"&STXT("bcdfghjklmnpqrstvwxz";ENT(ALEA()*20)+1;1)&CHOISIR(ENT(ALEA()*5)+1;"a";"e";"u";"o";"i")
Re
C'est raccourci le bon mot ?