Depassement de capacité a mi-page

Bonjour le forum,

J'ai une code qui tourne depuis pas mal de temps et là il bloque avec pour motif "dépassement de capacité " alors que je colle des lignes au dela de la ligne32768 ( la moitié de 65536) Que je dépasse de 2; 10; ou 40 lignes

Voici le bout de code:
Range("A" & Numlig).Select 'Num lig = ici: 32739
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Dim NumLigFin As Integer
NumLigFin = Numlig + NbCmde - 2 (NbCmde = 41 donc NumLigFin = 32778)

C'est là que ça bloque... Quelqu'un a une idée?
A+