La méthode 'Replace' de l'objet 'Range' a échoué

Bonjour,

J'ai enregistré une macro qui supprime les accents :

Sub Accents()
'
' Accents Macro
'

'
    Cells.Replace What:="à", Replacement:="a", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False    Cells.Replace What:="é", Replacement:="e", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
          Cells.Replace What:="è", Replacement:="e", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Application.Run "PERSONAL.XLSB!Accents"
      Cells.Replace What:="ù", Replacement:="u", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
          Cells.Replace What:="ï", Replacement:="i", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

Problème, à l'exécution, j'ai ce message hostile :

Erreur d'exécution '-2147417848 (80010108)':
La méthode 'Replace' de l'objet 'Range' a échoué

En activant le débogueur, la première ligne en gras dans le code ci-dessus est surlignée en jaune.
Y a-t-il qquechose à faire selon vous ?
La subsitution des accents semble néanmoins fonctionner

Merci