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
'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