Supprimer la rangée d'une ListeBox à 6 colonnes

Bonjour

Parfois, lorsque j'utilise le bouton Supprimé après avoir sélectionné une rangée de ma ListBox de mon UserForm_1, plusieurs rangée disparaissent simultanément.

J'aimerais comprendre pourquoi car le résultat que je souhaite est de supprimer seulement la rangée sélectionnée de ma ListBox.

Voici le code que j'utilise pour supprimer la rangée sélectionnée de ma ListBox :

Private Sub CmdB_2_Click() 'Bouton Supprimé

    Dim i As Integer

    For i = 1 To Range("A392").End(xlUp).Row
        If Cells(i, 1) = LB_1.List(LB_1.ListIndex) Then
            Rows(i).Select
            Selection.Delete
        End If
    Next i

End Sub

Ensuite, pour une raison que je n'arrive pas à comprendre, lorsque j'utilise le bouton Supprimé de mon UserForm, il arrive parfois que la fenêtre suivante s'affiche :

Bref, votre aide serait grandement apprécier!

Bonsoir J-C

Voici votre fichier modifié

@+

Salut JC et encore merci pour ton gentil MP

Du coup je me suis dis que je pouvais encore un peu t'aider avec la mise à jour de ta listbox

J'en ai profiter pour mettre du code qui empêche la saisie autre que chiffre dans la TextBox quantité

Voilà @+

Salut BrunoM45,

C'est super et sympa! Merci beaucoup pour ton aide

Bonne journée!