ma boucle for ne marche pas !!!!

bonjour tt le monde,

j'ai créé un code VBA que j'ai intégré dans une feuille excel. dans ce code il y a une boucle for. j'ai l'impression que la boucle for ne tourne pas et que la variable ne s'incrémente pas, voila le code;


Sub Worksheet_Change(ByVal Target As Range)



If ActiveWorkbook.FullName = 'C:\\test.xls' Then


With Sheets('Sheet1')

Dim i As Long
For i = 3 To 19

If Cells(i, 6).Value = Cells(i, 2).Value Then
Cells(i, 3).Value = Cells(2, 9).Value

Else
If Cells(i, 6).Value = Cells(i, 4).Value Then
Cells(i, 5).Value = Cells(2, 9).Value
End If
End If

Next

End With

End If


End Sub


merci bcp d'avance
a tte