Bonsoir Ghislain,
Tout d'abord, as-tui vraiment besoin de toutes ces feuilles.
Apparemment tu parviens déjà à enregistrer dans la feuille 'fin' les données sélectionnées dans la userform !
Une autre remarque :
Tu écrit du code comme suit :
'For i = 0 To .ListCount - 1'
J'ai exécuté en mode pas à pas et tu veut lire toutes les cases d'une colonne pour les lire et effectuer des actions si besoin. Pas la peine d'aller jusqu'à la fin pour ca. Tu dois définir la fin de la colonne dans une variable de la façon suivante :
ndl = Range('A1').Down(XlDown).row
Ensuite il faut boucler de i = 1 à ndl
Cela est valable à condition qu'il n'y ai pas de cases vierges sinon faut d'abord faire un tri ...
Attention aussi si il n'y a que la première case qui est remplie. Dans ce cas ndl vaut 65536.
Bref faut bidouiller quoi !
Pour ton problème, je te renvoi un fichier.
J'ai ajouter du code derrière le bouton enregistrer, à la fin de la procédure.
En fait je lis la valeur de la ListBox1 et je la recherche dans la feuille1. Quand elle est trouvée on connait la ligne à supprimer.
Attention, j'ai du mettre un commentaire car à un moment tu réinitialises Listbox1 à '', donc pas moyen de trouver la valeur dans la colonne de la feuille 1.
Bon courage.
David [file name=Classeur2_20060316190635.zip size=26710]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20060316190635.zip[/file]