Macro évènementielle sur plusieurs cellules

[famu]

Bonjour,
Voici mon code :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = ("$Y$6") And Target.Value = 0 Then
Application.EnableEvents = False
Target.Offset(0, 1) = 0
Application.EnableEvents = True
End If
End sub

Il fonctionne très bien pour une cellule (Y6). Le problème est que je dois lancer cette macro sur 21 cellules espacées (Y6, Y11, Y16, Y22...)
Comment faire ?
MERCI.

 

[Pierrot93]

Re : Macro évènementielle sur plusieurs cellules

Bonjour,

regarde ceci :

If Not Intersect(Target, Range("Y6,Y11,Y16,Y22")) Is Nothing Then

bon après midi
@+

 

[famu]

Re : Macro évènementielle sur plusieurs cellules

Bonjour,

regarde ceci :

If Not Intersect(Target, Range("Y6,Y11,Y16,Y22")) Is Nothing Then

bon après midi
@+

Marche super !
Merci beaucoup Pierrot.