[COLOR="DarkSlateGray"][B]Dim toto
ReDim toto(1 To coll.Count, 1 To 5)
For n = 1 To coll.Count
x = Split(Left(coll(n), Len(coll(n)) - 1), ",")
For m = 0 To UBound(x)
toto(n, m + 1) = x(m)
Next m
Next n
Range("A7").Resize(UBound(toto, 1), 5).Value = toto[/B][/COLOR]