// à tester
sub Abdelhak()
for c =2 to 235
for l=4 to 139
if cells(l,c).Interior.Color = RGB(0, 250, 0) then
select case l
case 4 to 13
y=(c-1)*10-6+(l-3)
sheets("1").cells(3,y).Interior.Color = RGB(0, 250, 0)
sheets("1").cells(3,y)=1
case 18 to 27
y=(c-1)*10-6+(l-17)
sheets("1").cells(4,y).Interior.Color = RGB(0, 250, 0)
sheets("1").cells(4,y)=1
case 32 to 41
y=(c-1)*10-6+(l-31)
sheets("1").cells(5,y).Interior.Color = RGB(0, 250, 0)
sheets("1").cells(5,y)=1
case 46 to 55
y=(c-1)*10-6+(l-45)
sheets("1").cells(6,y).Interior.Color = RGB(0, 250, 0)
sheets("1").cells(6,y)=1
case 60 to 69
y=(c-1)*10-6+(l-59)
sheets("1").cells(7,y).Interior.Color = RGB(0, 250, 0)
sheets("1").cells(7,y)=1
case 74 to 83
y=(c-1)*10-6+(l-73)
sheets("1").cells(8,y).Interior.Color = RGB(0, 250, 0)
sheets("1").cells(8,y)=1
case 88 to 97
y=(c-1)*10-6+(l-87)
sheets("1").cells(9,y).Interior.Color = RGB(0, 250, 0)
sheets("1").cells(9,y)=1
case 102 to 111
y=(c-1)*10-6+(l-101)
sheets("1").cells(10,y).Interior.Color = RGB(0, 250, 0)
sheets("1").cells(10,y)=1
case 116 to 125
y=(c-1)*10-6+(l-115)
sheets("1").cells(11,y).Interior.Color = RGB(0, 250, 0)
sheets("1").cells(11,y)=1
case 130 to 139
y=(c-1)*10-6+(l-129)
sheets("1").cells(12,y).Interior.Color = RGB(0, 250, 0)
sheets("1").cells(12,y)=1
end select
next l
next c
end sub