Sub efface()
'
' efface Macro
'
'
Range( _
"BJ14,E4:E34,J4:J34,O4:O34,T4:T34,Y4:Y34,AD4:AD35,AI4:AI34,AN4:AN34,AS4:AS34,AX4:AX34,BC4:BC34,BH4:BH34" _
).Select
Selection.ClearContents
Range("BD1").Select
For i = 5 To 60 Step 5
For j = 4 To 34
If Cells(j, i - 2).Value = 6 Or Cells(j, i - 2).Value = 7 Then
Cells(j, i).Value = 1
End If
Next j
Next i
End Sub