Option Base 1
Sub Effet_Defilement2()
Dim k As Long, Derlign As Long, n As Byte, couleur As Byte, tablo()
Derlign = Range("A65536").End(xlUp).Row
tablo = Array(43, 44, 19) '3 couleurs
Cells(9, 1).Resize(Derlign, 5).Rows.Hidden = True
For k = 1 To Derlign Step 8
n = n + 1: If n = 4 Then n = 1
couleur = tablo(n)
Cells(k, 1).Resize(8, 5).Interior.ColorIndex = couleur
Application.Wait Now + TimeValue("00:00:02") 'Pause de 2 secondes
With Cells(k, 1).Resize(8, 5)
.Interior.ColorIndex = xlNone
.Rows.Hidden = True
End With
Cells(k + 8, 1).Resize(8, 5).Rows.Hidden = False
Range("A1").Select
Next k
Rows.Hidden = False
End Sub