Lettres avec accents dans Eudora

Voici un macro pour Word, qui restitue les lettres accentuées.
Sub FReudora()
'convert txt from eudora with unprintable into printable
Dim i%
Dim kar(1 To 2, 1 To 16)
kar(1, 1) = Chr(195) & Chr(169)
kar(2, 1) = "é"
kar(1, 2) = Chr(226) & Chr(128) & Chr(153)
kar(2, 2) = "'"
kar(1, 3) = Chr(195) & Chr(187)
kar(2, 3) = "û"
kar(1, 4) = Chr(195) & Chr(171)
kar(2, 4) = "ë"
kar(1, 5) = Chr(195) & Chr(162)
kar(2, 5) = "â"
kar(1, 6) = Chr(195) & Chr(168)
kar(2, 6) = "è"
kar(1, 7) = Chr(195) & Chr(170)
kar(2, 7) = "ê"
kar(1, 8) = Chr(195) & Chr(167)
kar(2, 8) = "ç"
kar(1, 9) = Chr(195) & Chr(175)
kar(2, 9) = "ï"
kar(1, 10) = Chr(195) & Chr(180)
kar(2, 10) = "ô"
kar(1, 11) = Chr(194) & Chr(171)
kar(2, 11) = Chr(171)
kar(1, 12) = Chr(194) & Chr(187)
kar(2, 12) = Chr(187)
kar(1, 13) = Chr(195) & Chr(185)
kar(2, 13) = "ù"
kar(1, 14) = Chr(195) & Chr(174)
kar(2, 14) = "î"
kar(1, 15) = Chr(195) & " "
kar(2, 15) = "à "
kar(1, 16) = Chr(194) & Chr(160)
kar(2, 16) = Chr(160)
For i = 1 To 16
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = kar(1, i)
.Replacement.Text = kar(2, i)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i
End Sub

Bonjour
Etant confronté au mêm problème, j evoulais savoir si vous aviez obtenu yne réponse
. Si oui, que faut il faire
Merci
AJ