Erreur d'éxècution '13'

Bonsoir le Forum,

Si je place un nombre < à 65537, cela fonctionne, mais au dessus , le message "Erreur d'éxècution '13', Incompatibilité de type" arrive !

Quelle modification à apporter dans cette ligne ?
Range("A2").Resize(dico.Count) = Application.Transpose(dico.keys)

Private Sub Workbook_Open()
' ********** Tirage de valeurs différentes et écriture en colonne A et B ***************
Set dico = CreateObject("Scripting.Dictionary")
While dico.Count < 1065537
Randomize
S = Int((10000000 * Rnd)) + 1
dico(S) = S
Wend
Range("A2").Resize(dico.Count) = Application.Transpose(dico.keys)
Range("B2").Resize(dico.Count) = Application.Transpose(dico.keys)
'********** Trier la colonne B par ordre croissant **************
Columns("B:B").Select
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'******** Instale des pointeurs pour trouver ligne en recherche VlookUp en colonne C ************
For i = 2 To 65537: Cells(i, 3) = i - 1: Next i
End Sub

D'avance Merci

A+

René