Hi,

Am Sun, 26 Jul 2015 06:43:48 -0700 (PDT) schrieb Mohamed Elamrani:

.Cells(j + 3, Application.Match(CDbl(Sheets("Standard
d'engagement").Cells(3 + i, 4)), .Range("B2:EP2"), 1)) = "X"

it works not the whole loop. If you step through the code with F8 you
see that it works the first times. Watch your times in both sheets.


Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional