Private Sub ListBox1_Change()
'myDearFriend! - www.mdf-xlpages.com 10/2017
Dim vTab As Variant
Dim CodeArticle As String
Dim Lmax As Long, L As Long
Dim C As Byte
    'Code article sélectionné ?
    With ListBox1
        If .ListIndex < 0 Then Exit Sub
        CodeArticle = .List(.ListIndex, 1)
    End With
    'Mettre à jour la liste des MOUVements
    With ListeBoxMOUV
        'RAZ du contenu
        .Clear
        'On stocke toutes les données "MOUV" dans une variable Tableau
        vTab = Sheets("MOUV").UsedRange.Value
        Lmax = UBound(vTab, 1)
        'Pour chaque ligne du Tableau
        For L = 2 To Lmax
            If vTab(L, 1) = CodeArticle Then     'Si le CodeArticle est trouvé...
                .AddItem vTab(L, 10)                        'Date
                .List(.ListCount - 1, 1) = vTab(L, 11)      'Type
                .List(.ListCount - 1, 2) = vTab(L, 9)       'Bénéficiaire
                .List(.ListCount - 1, 3) = vTab(L, 2)       'Article (Désignation)
                .List(.ListCount - 1, 4) = vTab(L, 4)       'Quantité
            End If
        Next L
    End With
End Sub

En pièce jointe, ton classeur exemple adapté en conséquence.

J'espère que cette solution te conviendra.

Bien cordialement,