Erreur d'execution 6 dépassement de capacité

Bonjour,

J'ai demander de l'aide concernant la mise en place d'un code VBA, au debut le code fonctionnait quand ça s'applique à quelques lignes mais ça plante quand les ligne dépassent les 1000.

Ci-dessous le code, quelqu'un peut-il m'aider SVP?

L'erreur est marquée en rouge

Sub Test()

Dim a, b

Dim i%, j%

a = Feuil1.UsedRange

b = Feuil2.UsedRange

With Feuil2

For i = 2 To .UsedRange.Rows.Count

For j = 2 To UBound(a)

If UCase(b(i, 2)) = UCase(a(j, 1)) Then

Cells(i, 6).Offset(0, 1).Value = 1

End If

Next j

Next i

End With

End Sub

J'ai répondu sur l'autre discussion