XL 2010 Répéter code VBA d'une ligne sur plusieurs lignes

[Bekox]

Bonjour tout le monde !

J'aimerai que mon code se fasse sur toutes les lignes de mes 2 colonnes (I et J) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("I2")) Is Nothing Then
Range("J2").Value = ""

End If

End Sub

Mon code marche sur ma ligne 2, mais je n'arrive pas à appliquer le code sur les lignes suivantes (I3 et J3, I4 et J4, etc...)

 

[CHALET53]

Essaie:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("I2:I200")) Is Nothing Then
Range("J" & Target.Row).Value = ""

End If


End Sub

 

[Bekox]

Salut ! Merci pour ta réponse c'est gentil.

Du coup je viens d'essayer, ça ne marche pas :/