Bonjour à tous,
Je cherche à utiliser la range "Target" renvoyer dans les sub "Private Sub Worksheet_Change(ByVal Target As Range)" et "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" d'une feuille vers une autre procédure pour éviter d'avoir 2 procédures identiques dans ces evenements.

J'ai essayé de déclarer un objet "Selection", une Range, avec ou sans "Option explicit". J'ai tourné le problème dans tous les sens, J'ai toujours un message d'erreur.
J'ai mis cette 3 eme procédure dans le code de la feuille, dans un module, même problème.
Pour ma recherche, cette 3eme procédure ne contient qu'une msgbox (selection.address) pour vérifier le bon fonctionnement.

Essai avec le transfert direct de "Target" vers la procédure Essai:
Private Sub Worksheet_Change(ByVal Target As Range)
essai (Target)
End Sub
Erreur 424


Essai avec une variable déclarée et utilisation ou non de "Set" :
Dim selection As Range
Set selection = Target
essai (selection)
erreur 91
Dans la procédure "Essai", j'ai aussi essayé avec et sans la declaration (byval selection as range) mais toujours une erreur!
En espérant avoir été assez clair même si je ne suis pas rentré dans le détail de toutes les versions essayées. Si quelqu'un peux m'éclairer sur ce problème que je tourne dans tous les sens.
Merci d'avance.
Cordialement