Renvoyer traitement d'erreur si selection plus d'une cellule

Dans une feuille lorsque je clic sur une cellule j'enchaine plusieurs actions et cela fonctionne car ma procédure attend une seule valeur ; (MaValeur = Target.Value)

mais si par erreur je sélectionne plus d'un cellule on par en erreur avec débogage. Je voudrais donc avant le traitement de cette valeur ouvrir une messagebox s'il y a plus d'une cellule sélectionnée pour traiter l'erreur

Bonjour,

Dans ce cas Target.Count fera sûrement l'affaire, si >1 alors partir en erreur, sinon exécuter le code. Target.Count renvoie le nombre de cellules sélectionnées.