Function minus(cellule)
x = Split(cellule, "-")
For n = LBound(x) To UBound(x)
x(n) = LCase(x(n))
x(n) = SansAccent(x(n))
x(n) = Replace(x(n), "'", "_")
x(n) = Replace(x(n), """, " ")
Next
minus = Trim(Join(x))
minus = Replace(minus, " ", "_")
minus = Replace(minus, """, " ")
End Function
Function SansAccent(chaine)
codeA = "ÀÁÂÃÄÅàáâãäåÒÓÔÕÖØòóôõöøÈÉÊËèéêëÌÍÎÏìíîïÙÚÛÜùúûüÿÑñÇç"
codeB = "AAAAAAaaaaaaOOOOOOooooooEEEEeeeeIIIIiiiiUUUUuuuuyNnCc"
temp = chaine
For i = 1 To Len(temp)
p = InStr(codeA, Mid(temp, i, 1))
If p > 0 Then Mid(temp, i, 1) = Mid(codeB, p, 1)
Next
SansAccent = temp
End Function