Bonjour à tou(te)s,

Après avoir importé des données généalogiques d'un autre fichier Excel, je souhaite remplacer tous les caractères majuscules accentués par leur équivalent non-accentué.
Ex. "Élise" doit devenir "Elise"

Mon problème c'est que je me retrouve avec " Elise", donc précédé d'un blanc. Quand j'essaie de supprimer le blanc manuellement, cela s'avère impossible, un fois que j'ai tapé Enter, le blanc revient.

Voici le code utilisé :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub RemplMajAcc()
    Dim myarray, myreplace
    Dim i As Integer
    Dim SH
    Dim rng As Range
    Dim LastRow
 
    myarray = Array("É", "È", "À", "Û", "Ô", "Ö", "Ç", "Â", "Ù", "Ü", "Ä", "Ê", "Ë", "Î", "Ï")
    myreplace = Array("E", "E", "A", "U", "O", "O", "C", "A", "U", "U", "A", "E", "E", "I", "I")
 
    For Each SH In Worksheets
        For i = 0 To UBound(myarray)
            SH.Cells.Replace What:=myarray(i), Replacement:=myreplace(i), LookAt:=xlPart, _
                          SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
                          ReplaceFormat:=False
        Next
 
       ...
S'il n'y a pas de remplacement, il n'y a pas de blanc non plus.

Je suis a quia. Pouvez-vous m'aider ?

Merci d'avance et bon w-e.

Philippe