For i = 2 To L3
ancien_ref = Cells(i, 5).Value
'nouvelle_ref = SIERREUR(GAUCHE(L2;3)&DROITE(L2;NBCAR(L2)-3)*1;"-")
nouvelle_ref = Evaluate("=IfError(Left(" & ancien_ref & ", 3) & Right(" & ancien_ref & ", Len(" & ancien_ref & ") - 3) * 1, """")")
MsgBox nouvelle_ref
Next i