[VBA] Erreur transfert tableau() vers feuille

Bonjour,
J'essaye de transférer le contenu d'une variable sur plage Excel.

Voici mon code :

Sub totot()
Dim tableau() As Variant
Set ws1= Worksheets("ws1")
Set ws2= Worksheets("ws2")
i = 1
dernligne = 100
Var = 1
j = 1


While ws1.Cells(i, 1) <> ""

ReDim Preserve tableau(i - 1) As Variant

    ' on parcours les données en gardant en mémoire ce qui a été parcouru
        If ws1.Cells(i, 9) > ws2.Cells(Var, 4) Then
            Var = Var + 1
        Else
            If ws1.Cells(i, 9) >= ws2.Cells(Var, 3) Then
            tableau(i - 1) = ws2.Cells(Var, 1)
            End If
        End If
    i = i + 1
Wend

Range(Cells(1, 12), Cells(i - 1, 12)).Select
Selection = tableau

End Sub

Mon tableau contient bien les valeurs que je souhaite mais lors que j'essaye de le mettre sur la feuille Excel, je n'obtient que la 1ère valeur de mon tableau. J'ai réduit la taille de la plage selectionné car sinon elle contenait une valeur en trop (le tableau initiant à 0). Néanmoins, cela ne me change rien.

Merci de votre aide