Sub Effet_Defilement2()
Dim k As Long, Derlign As Long
Derlign = Range("A65536").End(xlUp).Row
Cells(9, 1).Resize(Derlign, 5).Rows.Hidden = True
For k = 1 To Derlign Step 8
Cells(k, 1).Resize(8, 5).Interior.ColorIndex = (2 + Int(k / 8)) Mod 56
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