Besoin d'aide VBA

Bonjour,
J'aurais besoin d'un petit coup de main svp

Voici mon code sur VBA:

Sub quota()
Dim i, k As Integer
nbligne1 = Workbooks("Ecoles2008").Sheets("Feuil1").UsedRange.Rows.Count
nbligne3 = Workbooks("Ecoles2008").Sheets("Feuil3").UsedRange.Rows.Count
For i = 1 To nbligne1
For k = 1 To nbligne3
If Workbooks("Ecoles2008").Sheets("Feuil1").UsedRange.Cells(i, 1) Like Workbooks("Ecoles2008").Sheets("Feuil3").UsedRange.Cells(k, 2) Then Workbooks("Ecoles2008").Sheets("Feuil3").UsedRange.Cells(k, 5) = Workbooks("Ecoles2008").Sheets("Feuil1").UsedRange.Cells(i, 70) + Workbooks("Ecoles2008").Sheets("Feuil1").UsedRange.Cells(i, 70)
Next k
Next i
End Sub

quand j'essaie d'exécuter une erreur s'affiche :

"erreur d'exécution 9 : l'indice n'appartient pas à la sélection"

Est-ce que quelqu'un a une idée?

merci