Sub Rayure()
'la macro travaille sur 25 colonnes et 5000 lignes
Application.ScreenUpdating = False
For i = 1 To 5000 Step 2
Range(Cells(i, 1), Cells(i, 25)).Interior.ColorIndex = 36
Range(Cells(i + 1, 1), Cells(i + 1, 25)).Interior.ColorIndex = 35
Next
End Sub
Sub RayClear()
'La macro suivante fait le ménage avant l'impression
Range(Cells(1, 1), Cells(5000, 25)).Interior.ColorIndex = xlColorIndexNone
End Sub
Sub SPrint()
RayClear
ActiveSheet.PrintOut preview:=True
Rayure
End Sub