Function suppAccent(chaine As String) As String
Dim accent As String, sansAccent As String, i As Long
accent = "àâéèêëîïôüù"
sansAccent = "aaeeeeiiouu"
For i = 1 To Len(accent)
chaine = Replace(chaine, Mid(accent, i, 1), Mid(sansAccent, i, 1))
Next i
suppAccent = chaine
End Function
Sub suppAccentSelection()
With Sheets("Geo20")
fin = .Range("A" & .Rows.Count).End(xlUp).Row
For i = 2 To fin
.Range("A" & i) = UCase(suppAccent(LCase(.Range("A" & i))))
Next i
End With
End Sub