Sub change()
LastRow = ...
Accents = Array("à,â,ä,å,é,è,ê,ë,î,ï,ô,ö,ù,û,ü,È,É,Ê,Ë,À,Á,Â,Ã,Ä,Å,Ù,Ú,Û,Ü,-,_")
Normaux = Array("a,a,a,a,e,e,e,e,i,i,o,o,u,u,u,E,E,E,E,A,A,A,A,A,U,U,U,U, ")
Dim c As Range, ai As Byte
For Each c In Range("K2:K" & LastRow)
For ai = LBound(Accents) To UBound(Accents)
c.Value = Replace(c, Accents(ai), Normaux(ai))
Next ai
Next c
End Sub