XL 2010 Lancer une macro en cliquant sur une cellule fusionné

[yusukens]

Bonjour,

En insérant la code suivant dans la feuille.
Cela lance la macro "MacroZ" lorsqu'on clique dans la cellule B4.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$4" Then MacroZ
End Sub

Mais lorsque B4 est fusionné jusqu'à K4 comment peut-on réécrire le code pour que cela fonctionne ?

en vous remerciant par avance

 

[sylvanu]

Bonsoir Ausukens,
Voir PJ avec ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Not Intersect(Target, Range("B4:K4")) Is Nothing Then
         MacroZ
    End If
Fin:
End Sub

 

[yusukens]

Merci beaucoup Sylvanu, c'est exactement ce qu'il me fallait.
un grand merci !!