Sub Essai()
Application.ScreenUpdating = False
N = Application.CountIf([alpha], "*") ' Nombre de mots dans la liste alpha
Ligne = Int(N * Rnd) ' Choix d'un mot au hasard
If Ligne = 0 Then Ligne = 1 ' On évite l'index 0
[B4] = [alpha].Offset(Ligne)(1, 1) ' On écrit ce mot en B4
For i = 1 To 3 ' Pour les 3 lettres
Couleur = 1 + Int(55 * Rnd) ' On choisit une couleur au hasard
[B4].Characters(Start:=i, Length:=1).Font.ColorIndex = Couleur ' On met la lettre de cette couleur
Next i
End Sub