Ouverture de feuille qui bug

Bonjour,
J'ai essayé de créer un petit programme pour récuppérer d'une autre feuille tous les titres qui répondent à un certain critère.
Mais il y a 'une erreur d'éxécution 9: l'indice n'appartient pas à la sélection". Sauriez-vous ce qui cloche dans mon programme?
Merci de votre aide.
voilà le programme:
Sub vitessenotable()
j = 2
Sheets("exane").Activate

For i = 7 To 330


If Cells(i, 4).Value > Cells(2, 1).Value Then
ouais = Cells(i, 4).Value
ouaisouais = Cells(i, 2).Value
ouaisouaisouais = Cells(i, 1).Value

Sheets("Feuil2").Activate
Cells(j, 4).Value = ouais
Cells(j, 2).Value = ouaisouais
Cells(j, 1).Value = ouaisouaisouais
j = j + 1
End If
Sheets("exane").Activate
Next

End Sub