Re"mplacement automatique de lettres

Sub remplacer_Car_adapte_a_ton_cas()
    'sources : https://www.developpez.net/forums/d294952/autres-langages/general-visual-basic-6-vbscript/vbscript/vb-script-changer-caracteres-speciaux-caracteres-normaux/
Dim i
Dim lettre
Dim Cell As Variant

    Const ACCENT = "ßžžÀÅåÁáÁÄäÉÈÊËÍÏíÎîìÌÒÓòóØøÔõÕÚúÙùÛûÜüŸÿýÝÇÐðŠšŽž"
    Const NOACCENT = "SzzAAaAaAAaEEEEIIiIiiIOOooOoOoOUuUuUuUuYyyYCDdSsZz"
    
    For Each Cell In ActiveSheet.UsedRange
        For i = 1 To Len(ACCENT)
        lettre = Mid(ACCENT, i, 1)
            If InStr(Cell, lettre) <> 0 Then
                Cell.Value = Replace(Cell.Value, lettre, Mid(NOACCENT, i, 1))
            End If
        Next
    
    Next Cell
    
    Set i = Nothing
    Set lettre = Nothing
        
End Sub

Sub remplacerCaracteres()
    Dim Cell As Variant
    For Each Cell In ActiveSheet.UsedRange
        Cell.Value = Replace(Cell.Value, "ß", "ss")
        Cell.Value = Replace(Cell.Value, "Ž", "Z")
        Cell.Value = Replace(Cell.Value, "ton_caractere_special", "la_lettre_de_remplacement")
    Next Cell
End Sub