Sub youkybj()
Application.Calculation = xlCalculationManual
With Feuil1
.[C5:LJ4300].ClearContents 'efface
.[C5:LJ4300].Interior.Color = xlNone 'supp couleur
Set Sh = Feuil4
For lig = 4 To 4255 Step 14
j = j + 1
For col = 2 To 322
For k = 0 To lig + 8
If Sh.Cells(lig + k, col) = "" Then Exit For
If Sh.Cells(lig + k, col).Interior.Color = RGB(0, 250, 0) Then
lig1 = ((col - 2) * 10) + k + 5
.Cells(lig1, j + 2) = 1
.Cells(lig1, j + 2).Interior.Color = RGB(0, 250, 0)
End If
Next
Next
Next
.Select
End With
Application.Calculation = xlCalculationAutomatic
End Sub