Problème Accent sur Excel

Bonjour,

j'ai ce fichier avec des mots avec accents. J'aimerai un code VBA qui transforme tous les mots avec accents en sans accents et EN majuscule. Exemple: François en FRANCOIS. Si vous avez un moment pour m'aider. Bonne journée à vous.

Bonjour et

Un truc comme ça ?

Option Explicit

Public Liste, DerLigne, SuppAcent As Integer
Public PreNom, AcentOld, AcentNew As String '* 1
Const AccChars = "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ'"
Const RegChars = "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy "

Sub Test()
'Derniere ligne de la liste
DerLigne = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
'Pour chaque nom de la liste
For Liste = 2 To DerLigne
    'PreNom a modifié en colonne 1
    PreNom = Feuil1.Cells(Liste, 1).Value
    'Chaque lettre avec accent devient sans accent
    For SuppAcent = 1 To Len(AccChars)
        AcentOld = Mid(AccChars, SuppAcent, 1)
        AcentNew = Mid(RegChars, SuppAcent, 1)
        PreNom = Replace(PreNom, AcentOld, AcentNew, 1, 1)
    Next SuppAcent
    'Force en majuscule
    PreNom = UCase(PreNom)
    'Insert le PreNom en colonne 6
    Feuil1.Cells(Liste, 6).Value = PreNom
Next Liste

End Sub

l'apostrophe est aussi changé en espace, si tu ne le souhaites pas supprime le dernier caratere de :

Const AccChars
Const RegChars

A+

Merci beaucoup, c'est parfait pour moi!!