Erreur d'execution '91

Bonjour,

J'ai une erreur dans mon programme mais je n'arrive pas a trouver ce que c'est, ce n'est pas moi qui ai écrit le programme mais j'essaie de le faire fonctionner donc ca rend la tache compliqué
L'UserForm permet de mettre une ref de la liste 1 dans une ligne du tableau choisis et donc quand elle est mise (sélection puis flèche vers la droite) elle est enlevé temporairement de la liste 1 et du tableau "Numero Unique" et mise dans la liste 2 sauf que je souhaite quand je resélectionne le projet pouvoir remettre la ref dans la base de données (liste 1). C'est la que l'erreur apparait sur cette ligne précisément :

 Me.liste2.Column(1, Me.liste2.ListCount - 1) = TRf.ListColumns(1).Range.Find(TP.DataBodyRange(LI, COL), , xlValues, xlWhole).Row - TRf.HeaderRowRange.Row - 1

Je joint le fichier car je pense que mon explication n'est pas très claire

Merci

Bonjour jneh,

Si j'ai bien compris, navré, mais chez moi cela fonctionne

A+

Oui mais c'est parce qu'il faut sélectionner un projet d'abord puis passer les ref et cliquer sur "Ajouter élément", et c'est quand on relance l'userform et qu'on veut retirer la ref du projet que ca ne marche pas

Re,

Et on le savais comment ça

Ce n'est pas ce que vous avez exprimé dans votre 1er message

Bonne chance