DerniereCelluleRemplie51 = Columns("AD:AD").Find("*", Range("AD1"), , , xlByRows, xlPrevious).Row
Range("b3").FormulaLocal = _
"=SI(C" & DerniereCelluleRemplie51 & "="""";"""";SI($BA2="""";"""";$BA2-E" & DerniereCelluleRemplie51 & ")[COLOR="Red"][B])[/B][/COLOR]"