Fusion intelligentes de tableaux VBA

Bonjour,

J'ai un petit souci avec mon programme VBA ci-dessous. J'ai trois feuilles ; voir classeur Excel ci-joint. J'ai dans la feuille 1 en colonne 1 des éléments A par exemple, qui prennent des valeurs sur les colonnes suivantes et une feuille2 où j'ai en colonne 1 ces mêmes éléments A avec dans la colonne 2 un élément correspondant à chaque A.
L'objectif est dans une feuille3 de copier pour un élément A de la feuille 1 la ligne correspondante en lui ajoutant les éléments de la colonne 2 de la feuille 2 correspondant, cela autant de fois qu'il y'a d'élément pour A sur cette colonne (voir feuille Excel).
J'obtient avec le code ci-dessous une boucl infinie. Avant de le modifier j'obtenais que la première ligne. Je suis un peu perdu étant débutant VBA.

Le fichier excel avec les trois feuilles en exemple: https://www.cjoint.com/?DFfl5P37EXq



Code VBA:


Sub Macro1()
Set t1 = ActiveWorkbook.Worksheets("feuilleT1")
Set T2 = Worksheets("feuilleT2")
Set T3 = Worksheets("feuilleT3")
T3.Cells.Delete Shift:=xlUp
Dim tab100(1, 1 To 50)
Dim if1_l As Integer, if1_c As Integer
Dim if2_l As Integer, if2_c As Integer, if3_c As Integer, if3_l As Integer
Dim it1_l As Integer, it1_c As Integer, if1_c_buf As Integer
Dim t100(1 To 100, 1)
Dim rup_blc_tb



'Initialisation

if2_l = 1
if1_l = 1
it1_l = 1
rup_blc_t1 = 0
if3_l = 1
if1_c_buf = 1
nbcle2 = 0
nbcle1 = 0

'Stockage dans le tableau t100 des valeurs de la feuillle 2 à ajouter aux lignes des la feuille 1 dans la feuille 3

Do While t1.Cells(if1_l, if1_c_buf).Value <> ""

Do While T2.Cells(if2_l, 1).Value <> "" And rup_blc_t1 = 0
If t1.Cells(if1_l, 1).Value = T2.Cells(if2_l, 1).Value Then
t100(it1_l, 1) = T2.Cells(if2_l, 2).Value
it1_l = it1_l + 1
End If
if2_l = if2_l + 1
Loop
it1_l = 1

'Remplissage de la feuille 3

' Remplissage en ligne de la feuille 3 avec les éléments de la feuille 1
Do While t100(it1_l, 1) <> ""
Do While t1.Cells(if1_l, if1_c_buf) <> ""
T3.Cells(it1_l + nbcle2, if1_c_buf).Value = t1.Cells(if1_l, if1_c_buf).Value
if1_c_buf = if1_c_buf + 1
nbcle1 = if1_c_buf
nbcle2 = it1_l + nbcle2
Loop
it1_l = itl_1 + 1
Loop

it1_l = 1
if1_c_buf = 1

' Remplissage de la colonne à fusionné stockée dans le tableau t100
Do While t100(it1_l, 1) <> ""
T3.Cells(it1_l, nbcle1).Value = t100(it1_l, 1)
it1_l = it1_l + 1
Loop

rup_blc_t1 = 1

' Reset Tableau
it1_l = 1
Do While t100(it1_l, 1) <> ""
t100(it1_l, 1) = ""
itl_l = itl + 1
Loop
' Fin reset tableau
if1_l = if1_l + 1
Loop




End Sub