Obtenir une colonne à partir de règles appliquées sur d'autres

Bonjour,


Je voudrais de deux colonne l'une avec (A, A, A, A,) par exemple sur une feuille T1 et l'autre avec (A,A) sur une feuille T2 obtenir une troisième (A,A,A,A,A,A,A,A) sur une feuille T3.
Ce qui veut dire que toute similitude entre un élément de la première colonne et une autre de la deuxième, donne ce même élément dans la troisième colonne.

Je suis cependant une débutant VBA. Avec le code ci dessous, j'ai soit une code erreur '424' ou mon code qui plante à chaque execution:

Set T1 = ActiveWorkbook.Worksheets("T1")
Set T2 = Worksheets("T2")
Set T3 = Worksheets("T3")

Dim i00i As Integer, n As Integer, i As Integer, j As Integer
Dim ori00(1 To 10000, 1)

i00i = 0
n = 0
n = n + 1
i00i = i00i + 1
Do While T2.Cells(n, 1) <> 0
ori00(i00i, 1).Value = T2.Cells(i00i, 1).Value
Loop
cp = 0
i = 0
i = i + 1
Do While T1.Cells(i, 1) <> ""
If T1.Cells(i, 1).Value = T2.Cells(i00i, 1).Value Then
cp = cp + 1 And T2.Cells(i00i, 1).Value = A
End If
Loop

Do While j < cp
T3.Cells(j, 1).Value = A
Loop