v1 = Sheets("ldhzllzkahdlk").Range("A" & j).Value
v2 = Sheets("publipostage").Range("b" & i + 1).Value
v1 = Replace$(v1, Chr(39), "")
v2 = Replace$(v2, Chr(39), "")
v1 = Replace$(v1, " ", "")
v2 = Replace$(v2, " ", "")
v1 = fonction.sansAccents(LCase(v1))
v2 = fonction.sansAccents(LCase(v2))