VBA pour exécuter diverses macros lorsque vous cliquez sur différentes cellules dans Excel

Bonne journée

J'ai rencontré du code VBA qui fonctionne très bien pour déclencher une macro dans Excel lorsque vous cliquez sur une cellule spécifique. Voir ci-dessous:


Option explicite

Private Sub Worksheet_SelectionChange (Cible ByVal en tant que plage)
Si Selection.Count = 1 Alors
Si ce n'est pas l'intersection (cible, plage ("D4")) n'est rien alors
Appeler MaMacro
Si fin
Si fin
End Sub


J'essaie d'ajouter 3 autres scénarios de ce type au même code, mais je n'ai aucune expérience du codage, donc le dépannage ne m'a mené nulle part. Veuillez voir ci-dessous l'exemple de ce que j'essaie de faire et corrigez le code si possible :


Option explicite

Private Sub Worksheet_SelectionChange (Cible ByVal en tant que plage)
Si Selection.Count = 1 Alors
Si ce n'est pas l'intersection (cible, plage ("D4")) n'est rien alors
Appeler MaMacro1
Si fin
Si fin
Si Selection.Count = 1 Alors
Si ce n'est pas l'intersection (cible, plage ("E10")) n'est rien alors
Appeler MaMacro2
Si fin
Si fin
Si Selection.Count = 1 Alors
Si ce n'est pas l'intersection (cible, plage ("G23")) n'est rien alors
Appeler MaMacro3
Si fin
Si fin
Si Selection.Count = 1 Alors
Si ce n'est pas l'intersection (cible, plage ("J33")) n'est rien alors
Appeler MaMacro4
Si fin
Si fin
End Sub



Je m'attendais à ce que les différentes macros que j'ai créées (qui fonctionnent bien) s'exécutent automatiquement lorsque les cellules notées dans le code ont été cliquées


Toute aide sera grandement appréciée!