Effacer texte dans cellules, ligne par ligne

Bonjour à tous,

Je vais tenter d'expliquer rapidement :
J'ai appliqué le code ci-dessous sur mon tableau, mais je voudrais savoir si il est possible de l'appliquer LIGNE PAR LIGNE svp ?

Merci pour vos réponses !

Bertrand

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F5")) Is Nothing Then
Range("G5,H5,I5").ClearContents
End If

If Not Intersect(Target, Range("G5")) Is Nothing Then
Range("H5,I5").ClearContents
End If

If Not Intersect(Target, Range("H5")) Is Nothing Then
Range("I5").ClearContents
End If


End Sub

Bonjour Bertrand,

Private Sub Worksheet_Change(ByVal Target As Range)
Ligne = Target.Row
If Not Intersect(Target, Range("F" & Ligne)) Is Nothing Then
Range("G" & Ligne & ",H" & Ligne & ",I" & Ligne).ClearContents
End If

If Not Intersect(Target, Range("G" & Ligne)) Is Nothing Then
Range("H" & Ligne & ",I" & Ligne).ClearContents
End If

If Not Intersect(Target, Range("H" & Ligne)) Is Nothing Then
Range("I" & Ligne).ClearContents
End If

End Sub

Une proposition,

Slts

Merci Gabin, je vais tenter ça !

AU TOP Gabin, ça fonctionne parfaitement bien MERCI !!!!

Bonjour Bertrand