Afficher les valeur d'une collection par msgbox VBA

Bonjour,

Voila, j'ai un problème concernant l'utilisation des collection sur vba.
J'ai déclarer une nouvelle collection qui récupère des valeurs sous certaine conditions.
Je voudrais que les valeurs récuperées soit afficher par msgbox.
Je sais que ma macro repere les cellule à récuperer. Le problème est que mon msgbox est vide.

Voici mon code:

Private Sub CommandButtonPtQte_Click() 
Dim QteCom, qte, TaillePak, Reste As Long 
Dim RefOF, Couleur As String 
Dim a, cel As Range 
Dim TabTaille, TabQte As New Collection 'déclare les tableau 
'TabTaille.clear 
'TabQte.clear 


RefOF = UserFormRapportCoupe.ComboBoxRefOF.Value 
Couleur = UserFormRapportCoupe.ComboboxCouleur.Value 

If MsgBox("Les OF seront regroupés par taille pour la couleur " & Couleur, vbInformation + vbYesNo) = vbNo Then Exit Sub 

With ActiveSheet   'defini la variable p comme colone de ref OF 
    Set a = .Range("B8:B" & .Range("B1000").End(xlUp).Row) 
End With 

'remplir les collection de taille et qté 
On Error Resume Next 
    For Each cel In a 
        If cel.Value = RefOF Then 
            If cel.Offset(0, 1).Value = Couleur Then   
               TabTaille.Add cel.Offset(0, 1).Value 'Je pense que l'erreur se trouve à ce niveau 
            End If 
        End If 
    Next cel 

ligne = "" 
For i = 1 To TabTaille.count 
ligne = ligne & TabTaille(i) & Chr(13) 
Next i 
MsgBox ligne 

End Sub

Merci d'avance