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

[range]

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