Combox-Listbox-Supprimer

Exactement

Ah c'est mieux là je comprends

Remplacer ce code dans l'USF

Private Sub ListBox1_Click()
Dim i As Byte
      ' ListBox1 - sélection - afficher les informations de la sélection
With Sheets("Base de données")
    i = ListBox1.ListIndex 'on récupère la ligne sélectionnée dans la listbox
      'ligne = modifier.ListBox1.ListIndex + 2
    modifier.TextBox1 = ListBox1.List(i, 0) ' Référence produit
    modifier.TextBox2 = ListBox1.List(i, 1) ' Machine
    modifier.TextBox3 = ListBox1.List(i, 2) ' Barre ou Colonne
    modifier.TextBox4 = ListBox1.List(i, 3) ' Opération
    modifier.TextBox5 = ListBox1.List(i, 4) ' No de la gamme
    modifier.TextBox6 = ListBox1.List(i, 5) ' No du programme
    If ListBox1.List(i, 8) <> "" Then modifier.TextBox7 = ListBox1.List(i, 7) ' Temps de cycle de produit
    modifier.TextBox8 = ListBox1.List(i, 7) ' Commentaire
End With
modifier.ListBox1.Clear
End Sub

sa fonctionne sa me recopie bien la réf par contre si je fait une modif et je valide jai une erreur .

Re

sa fonctionne sa me recopie bien la réf par contre si je fait une modif et je valide jai une erreur

Logique que vous ayez erreur, puisque ce n'était pas l'objet de la demande et que je n'ai pas modifié les autres codes.

Votre fichier en retour pour test