Supprimer doublons VBA

Bonjour à tous,

J'ai besoin de votre aide svp sur une macro

J'ai des noms d'entreprise en colonne A et je souhaite les copier en colonne B en supprimant les symboles +, les chiffres.

Et aussi supprimer les doublons de cette forme

Exemples que j'ai dans ma colonne A Résultat souhaité

12 Bnp Paribas Bnp +45 Bnp Paribas

Coca Cola Cola Coca Cola

La Banque Postale Postale La Boulangerie Postale

J'ai déjà développé une macro qui ne fonctionne pas parfaitement que je met en pièce jointe, si qqn pourrais la regarder et me faire tes retours dessus, merci d'avance pour votre aide

Salut,

Voici une proposition basée sur la fonction Split qui permet d'atomiser une chaîne de caractères :

Sub Test_2()
Dim Ligne As Long
Dim Chn() As String, Temp As String, I As Integer
Ligne = 2
Do While Range("A" & Ligne) <> ""
  Chn = Split(Range("A" & Ligne), " ")
  Temp = ""
  For I = 0 To UBound(Chn)
    If Not IsNumeric(Chn(I)) Then
      If InStr(Temp, Chn(I)) = 0 Then
        Temp = Temp & " " & Chn(I)
      End If
    End If
  Next
  Range("B" & Ligne) = Trim(Temp)
  Ligne = Ligne + 1
Loop

End Sub

Chaque élément de la chaîne est ensuite vérifié (pas de nombre, pas de doublon) et sert à reconstituer une chaîne "propre".

A+

H

Merci beaucoup ça marche parfaitement,