XL 2019 Compte Items transpose lignes

Sub CompteItems()
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range("a2", [A3].End(xlToRight)): mondico(c.Value) = mondico(c.Value) + 1: Next c
[C12].Resize(9999, 2).Clear
[C12].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
[d12].Resize(mondico.Count, 1) = Application.Transpose(mondico.items)
[C12].Resize(mondico.Count, 2).Sort key1:=[C12], order1:=xlAscending, Header:=xlNo, Orientation:=xlSortColumns
End Sub

Sub CompteItems_2()
Set Plage = Range("a2", [A3].End(xlToRight))
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Plage: mondico(c.Value) = mondico(c.Value) + 1: Next c
[a5].Resize(2, Columns.Count).Clear
[a5].Resize(, mondico.Count) = mondico.keys
[A6].Resize(, mondico.Count) = mondico.items
[a5].Resize(2, mondico.Count).Sort key1:=[a5], order1:=xlAscending, Header:=xlNo, Orientation:=xlSortRows
End Sub