Affiché toutes les valeurs de mon tableau

Bonjour,
Je travaille sur une macro permettant de compté le nombre d'occurence sur une date.
Le but étant de voir, dans une plage défini le nombre de date identique.

Je vous propose la macro :

Sub Nb_valeur()

    Set tableau = Range("A1:A8") 'range pour les jalons

    nb = tableau.Rows.Count

    Dim t() As String

    Dim variable As String


    For i = 1 To nb 'Pour chaque ligne sélectionnée

        variable = tableau(i)   'On récupère la valeur de la cellule

        ReDim Preserve t(i) 'On redimensionne le tableau contenant les valeurs uniques

        If Not IsInArray(variable, t) And variable <> "" Then  'Si la valeur n'a pas déjà été trouvée

            t(i) = variable 'On conserve la valeur unique

            indice = 0

            For J = 1 To nb
                 If tableau(J) = variable Then
                     indice = indice + 1    'On compte le nb de fois que la valeur a été trouvée dans la sélection
                 End If
            Next

            Range("J1:J6") = t(i) & ":" & indice



        End If
    Next

End Sub


Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean

    If stringToBeFound <> "" Then  'Optionnel (à voir)
        IsInArray = (UBound(Filter(arr, stringToBeFound)) > -1)
    End If

End Function

j'ai cependant un petit soucis pour afficher mon tableau ( le résultat)
En effet,

   Range("J1:J6") = t(i) & ":" & indice 

cela ne maffiche que une date(la dernière de la palge) et le nombre de fois qu'elle set présente dans la plage.
Avec :

  MsgBox t(i) & ":" & indice 

Je n'ai plus ce problème, cependant je voudrais avoir un tableau récapitulatif et non une boite de dialogue.

Merci d'avance pour votre aide,

VK