Sub Bouton1_Clic()
Dim i As Integer, j As Integer, k As Integer
Application.ScreenUpdating = False
For i = 0 To 20
'ACT
For j = 0 To 7
If Cells(6 + j, 3 + i) <> "REU" _
And Cells(6 + j, 3 + i) <> "FOR" _
And Cells(6 + j, 3 + i) <> "MAL" _
And Cells(6 + j, 3 + i) <> "X" Then Cells(6 + j, 3 + i) = [ACT].Offset((j + i) Mod 8, 0)
Next
'ACT2
For k = 0 To 5
If Cells(20 + k, 3 + i) <> "REU" _
And Cells(20 + k, 3 + i) <> "FOR" _
And Cells(20 + k, 3 + i) <> "MAL" _
And Cells(20 + k, 3 + i) <> "X" Then Cells(20 + k, 3 + i) = [ACT2].Offset((k + i) Mod 6, 0)
Next
Next
Application.ScreenUpdating = True
End Sub