For index = 14 To 10000
Range("E" & CStr(index)).Formula = "=SI(C" & index & "<>"""";RECHERCHEV(C" & index & ";BDTYPE;3;FAUX); """")"
Range("F" & CStr(index)).Formula = "=SI(C" & index & "<>"""";1;"""")"
Range("G" & CStr(index)).Formula = "=SI(C" & index & "<>"""";RECHERCHEV($C" & index & ";BDAXE;5;FAUX);"""")"
Next index