Déclencher un événement en fonction du résultat d'une cellule

Bonjour à tous.

Dans mon fichier, je souhaite que lorsqu'une cellule est sélectionnée en colonne "D", et que la cellule "A" correspondant à la même ligne que la cellule sélectionnée en D n'est pas vide, se déclenche un événement (dans mon ex. faire appel à la calculatrice windows).
Ma macro ne fonctionne pas correctement. L'événement se déclenche dès qu'une cellule de la colonne D est sélectionnée et déclenche autant de fois l'événement que de cellules non vides en colonne A.
Merci pour votre aide