VBA Supprimer des caractères en double sur des cellules de même ligne

Bonjour,

Une BDD composée de 2 colonnes Nom et Prenom et 1.000 lignes.

Sur chaque cellule d'une même ligne est renseigné des caractères et qui peuvent êtres en doubles sur les deus cellules de la même ligne.

L'objectif et de supprimer les caractères en double sur la première cellule de la même ligne.

J'ai splitté le contenu du Nom en Nom 1 et Nom 2 et Nom 3 et j'ai aussi splitté le contenu du Prenom en Prenom 1 et Prenom 2 et Prenom 3.

Par le suite j'ai réalisé une Macro pour chercher les et éliminer le doublon si existant sur la première cellule de caque ligne mais le résultat n'est pas satisfaisant à 100%.

Sub Double_Prenom()

    Sheets("BDD Test").Activate

    LastRow = ThisWorkbook.Sheets("BDD Test").Cells(Rows.Count, 1).End(xlUp).Row

    For r = 2 To LastRow

    Plage1 = Range("H" & r, "J" & r)

    Range("H" & r, "J" & r).Select

    For Each Cell In Selection

            If Cells(r, 5) <> "" And Cell = Cells(r, 5) Then
                Cells(r, 1).Font.ColorIndex = 3 'Rouge

            ElseIf Cells(r, 6) <> "" And Cell = Cells(r, 6) Then
                Cells(r, 1).Font.ColorIndex = 3 'Rouge

            ElseIf Cells(r, 5) <> "" And Cell <> Cells(r, 5) Then
                Cells(r, 1).Font.ColorIndex = 10 'Vert

            ElseIf Cells(r, 6) <> "" And Cell <> Cells(r, 6) Then
                Cells(r, 1).Font.ColorIndex = 10 'Vert

            End If

        End If

    Next

    Next

End Sub

Ci-joint un fichier avec un exemple de 36 lignes.

Merci par avance pour votre retour.

Bonjour
Avec une formule toute simple ça le fait

Bonjour fcyspm30,

Je vous remercie pour votre réponse.

Je vais tester dans le fichier réel et voir le résultat.

Cordialement.

Bonjour fcyspm30,

Après utilisation de votre formule elle est bien mais je crois que je me suis mal exprimé pour mon cas.

Sur le fichier Excel je vous invite de voir surtout les lignes 2 / 4 / 5 / 9 et 11 dans la colonne L (Nom Attendu) et M (Prenom Attendu) pour savoir le résultat attendu de cette BDD exemple.

Cordialement.