Qui peut m'expliquer pourquoi je ne peux pas modifier une Array enregistrée dans un dictionnaire ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub ExempleArray_V01()
    Dim hAff As Scripting.Dictionary: Set hAff = New Scripting.Dictionary
 
    hAff.Item("k_val") = "A"
    hAff.Item("k_arr") = Array("a", "b", "c")
 
    Debug.Print hAff("k_val")       ' Renvoie A
    hAff("k_val") = "AAA"
    Debug.Print hAff("k_val")       ' Renvoie AAA
 
    Debug.Print hAff("k_arr")(0)    ' Renvoie a
    hAff("k_arr")(0) = "aaa"        ' Sans effet ??
    Debug.Print hAff("k_arr")(0)    ' Renvoie toujours a
 
End Sub
Amicalement,
Olivier