Dépassement de capacité?

Re forum,

En executant une macro sur 4000 lignes ça marche pas comme c'est le cas pour 100 lignes?!

Ca me donne comme message:

Erreur d'exécusion '6'

Dépassement de capacité

Que doit je faire?

Crdt,

Sub test()

Dim Tablo

Dim I As Byte

Dim N As Byte

Dim C

Sheets("statis").Range("A5:B65536").ClearContents

Tablo = Array("Feuil1", "Feuil2", "Feuil3")

For I = 0 To UBound(Tablo)

For N = 5 To Sheets(Tablo(I)).Range("U65536").End(xlUp).Row

Set C = Sheets("statis").Columns(1).Find(Sheets(Tablo(I)).Range("U" & N), LookIn:=xlValues, lookat:=xlWhole)

If Not C Is Nothing Then

C.Offset(0, 1) = C.Offset(0, 1) + 1

Else

Sheets("statis").Range("A65536").End(xlUp).Offset(1, 0) = Sheets(Tablo(I)).Range("U" & N)

Sheets("statis").Range("A65536").End(xlUp).Offset(0, 1) = 1

End If

Next N

Next I

Set C = Nothing

End Sub

Ce qui est souligné s'affiche en jaune quand je clique sur débogage

Salut le forum

Pour plus de 255 lignes modifie

Dim I As Byte 
Dim N As Byte

Par

Dim I As Integer
Dim N As Integer

Un lien à Lire : Déclaration des variables

Mytå

Re

Ca marche tres bien

Merci Usb512

Crdt