Eviter les doublons sur 1 celulle

Je cherche à résoudre une petite coquille qui me gène dans un code

With BD

    'Boucle sur la colonne N°Test du début du tableau en BD jusqu'a la fin
    For Each CEL In .Range("K3:K" & .UsedRange.Rows.Count)

    'Si la cellule contient TF
    If CEL.Value Like "*TF_*" Then

    'Recherche la dernière ligne en colonne B de la feuille TF
    dlg = TF.Range("B" & Rows.Count).End(xlUp).Row

    If dlg = 7 Then dlg = 8

    'Test si la valeur existe déjà en colonne B
    On Error Resume Next
    lig = TF.Range("B9:B" & dlg).Find(CEL.Value, LookIn:=xlValues, lookat:=xlWhole).Row

    Select Case lig

    'Si pas de résultat trouvé
    Case Is = 0
    TF.Range("A" & dlg + 1) = BD.Range("C" & CEL.Row)
    TF.Range("B" & dlg + 1) = BD.Range("K" & CEL.Row)
    TF.Range("C" & dlg + 1) = BD.Range("L" & CEL.Row)

    'Si résultat déjà présent
    Case Is > 0

    TF.Range("A" & lig) = "'" & TF.Range("A" & lig) & " - " & BD.Range("C" & CEL.Row)

    End Select

    'Remise lig à 0
    lig = 0

    End If
    Next CEL
End With

Avec ce code je transmet des valeurs d'une base vers un onglet

le soucis est que je peux me retrouver suivant ce qu'il y a dans ma base de données avec des doublons

c'est à dire

dans la cellule A de l'onglet TF il peux y avoir comme valeur "1 - 1 - 2 - 2" or j'aimerai avoir juste "1 - 2"

J'ai essayé avec un bout de code sans succès

If Not BD.Range("C" & CEL.Row).Value Like TF.Range("A" & lig) Then

Pouvez vous m'aider ?

Merci

Bien cordialement,

Un fichier exemple serait bien utile