Sub ElementsDictionnaire()
Dim NBd As Long, dl As Long
Dim ShCpt As Worksheet, ShDep As Worksheet
Dim c As Range, DLib As Object
Set ShCpt = Worksheets("comptes")
Set ShDep = Worksheets("Depenses")
With ShCpt
NBd = ShCpt.Cells(ShCpt.Rows.Count, 1).End(xlUp).Row
Set DLib = CreateObject("Scripting.Dictionary")
For Each c In .Range("C6:C" & NBd)
If Not DLib.Exists(c.Value) Then DLib.Add c.Value, c.Offset(, 1)
Next c
End With
'lignes ci-dessous fonctionnent bien
k = DLib.keys
i = DLib.items
For n = 0 To DLib.Count - 1
MsgBox k(n) & ", " & i(n)
Next n
'lignes ci-dessous plantent
For n = 0 To DLib.Count - 1
MsgBox DLib.keys(n) & ", " & DLib.items(n)
Next n
End Sub