Supprimer accents et tirets entre les noms

Bonjours

J'ai sur ma feuille en colonne "A" une liste de noms avec des accents des tirets ou traits d’union.

Je souhaiterai avec un code VBA pouvoirs retirer les accents et supprimer les tirets ou traits d’union

tous en laissant un espace entre chaque nom.

Je vous remercie d'avance

Cordialement

Max

Bonjour,

 Sub SansAccents()
 Dim n As Integer
 a$ = "ÀÁÂÃÄÅÈÉÊËÌÍÎÏÑÒÓÔÕÖÙÚÛÜÝàáâãäåèéêëìíîïðñòóôõöùúûüýÿ-"
 b$ = "AAAAAAEEEEIIIINOOOOOUUUUYaaaaaaeeeeiiiionooooouuuuyy "
 For n = 1 To Len(a)
     Range("A:A").Replace What:=Mid(a, n, 1), Replacement:=Mid(b, n, 1), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 Next
 End Sub

Bonjour SabV

Je te remercie et te souhaite une bonne après midi