XL 2010 Passer en format texte

Yo, j'utilise ceci, mais il faudrait que les cellules ce copie en texte, ce qui n'est pas le cas et donc m'empêche de réaliser ma RechercheV, que faire ? Bien sure en lgage VBA
'Traitement de la feuille Article

'Copier coller des Colonnes "Articles" du CA et du CNC, sauf si déjà dans la base = Suppression des doublons
Set dico = CreateObject("Scripting.dictionary")
For n = 1 To Sheets("CA").Range("A" & Rows.Count).End(xlUp).Row
x = Sheets("CA").Range("A" & n)
dico(x) = x
Next
For n = 1 To Sheets("CNC").Range("A" & Rows.Count).End(xlUp).Row
x = Sheets("CNC").Range("A" & n)
dico(x) = x
Next
a = dico.keys
Sheets("RenduArticle").Range("A1").Resize(UBound(a) + 1) = Application.Transpose(a)

S