copier si colonne B<colonne C

Bonjour

je sollicite encore une fois votre aide,

J'ai trois colonnes A, B, C
J'aimerai par un click bouton que lorsqu'on click, une macro se lance disant que :
si les valeurs de la colonne B < valeurs de la colonne C (condition)
ALORS il me copie sur une autre feuille les lignes qui correspondent a la condition.

J'ai essayé ca mais ca ne marche pas :

Private Sub CommandButton1_Click()
Sheets("Feuil2").Select
For i = 1 To Range("C65536").End(xlUp).Row
If Cells(i, 2).Value <= Cells(i, 3).Value Then
Rows(i).Copy Sheets("Feuil1").Cells(j + 3, 1)
j = j + 3
End If
Next
Application.CutCopyMode = False
End Sub

il ne m'affiche rien en feuil1

Pourriez vous m'aider s'il vous plait ?


Merci

willou