Sub test()
Dim Collection_Objet As Object
Dim Toto() As Variant ' () As String entraine une incompatibilité de type à l'affectation
Dim Titi() As String ' En revanche là ça va du moment que c'est bien ce qu'on range dans les Items
Set Collection_Objet = CreateObject("Scripting.Dictionary")
Collection_Objet.Add "Clé0", Split("Un-Deux-Trois", "-")
Collection_Objet.Add "Clé1", Split("Quatre-Cinq-Six", "-")
Toto = Collection_Objet.Keys
Titi = Collection_Objet.Item(Toto(0))
MsgBox "Toto(0) = """ & Toto(0) & """," & vbLf & "Titi = Array(""" & Join(Titi, """, """) & """)"
End Sub