For X = LBound(d.keys) To UBound(d.keys) - 1
    cpt = d.keys()(X)
    N = Application.WorksheetFunction.CountIf(rng, d.keys()(X))
    With frmRecordUpdate.lstSelection
        .AddItem cpt
        .List(.ListCount - 1, 1) = N
    End With
    '
    '
    '
Next X