Sub test()
Dim dicoA As New Dictionary, dicoB As New Dictionary, x
MsgBox "dicoA.count = " & dicoA.Count
If dicoA("a") = 1 Then x = x
MsgBox "dicoA.count = " & dicoA.Count
MsgBox "dicoB.count = " & dicoB.Count
If dicoB.Exists("b") Then x = x
MsgBox "dicoB.count = " & dicoB.Count
End Sub