Problème de Stockage et d'affichage de données dans un tableau

Bonjour,

Je voudrais stocker et afficher des valeurs dans un tableau dynamique,
mais quand j'affiche les valeurs rien n'est stocké.

Pourrait-on m'aider ? Voici mon code.
Merci !

Dim num_ligne As Long
Dim t_ligne as long
Dim x as long, y as long
Dim t_tableau() As Long
ReDim Preserve t_tableau(t_ligne, 2) As Long
dernlign = wsSource.Range("A700000").End(xlUp).Row


For num_ligne = 2 To dernlign
If StrComp(x, Range("G" & num_ligne)) = 0 Then
y= Range("G" & num_ligne)
End If
If StrComp(y, Range("G" & num_ligne)) = 0 Then
t_tableau(t_ligne, 1) = Range("E" & num_ligne)
afftab = t_tableau(t_ligne, 1)
t_ligne = t_ligne + 1
MsgBox (afftab)
End If
Next num_ligne