Re : Code memoire ne fonctionnant pas
Re,
essaie :
IF VALRANGESTATUT = Workbooks![book1.XLSM].Worksheets("sheet1").VarType(RANGE("BY1:BY40")) THEN EXIT SUB
Sinon donne ton code, je ne suis pas devin, tu ne précise pas comment tu initialises VALRANGESTATUT !
A+