re
oups,autant pour moi
Sub Guirlande()
Dim Boucle, Tempo, x, y As Integer
Dim A As Integer, Taille As Integer, Duree As Integer
Dim Couleurs(10000) As Integer
Taille = 20: Duree = 100
For A = 1 To Taille: Couleurs(A) = Rnd * 56: Next A
For Boucle = 1 To Duree
For x = 1 To Taille
Range('A1').Offset(x + 5, 0).Interior.ColorIndex = Couleurs(x)
Next x
For y = Taille To 2 Step -1: Couleurs(y) = Couleurs(y - 1): Next y
Couleurs(1) = Rnd * 56
For Tempo = 1 To 1000000#: Next Tempo
Next Boucle
End Sub