XL 2013 besoin d'aide

j'aimerai afficher dans des textbox(userforme nommé modificationarticle) , la liste de données selectionnée dans une listbox(userforme nommé stocktotal)


voici le code d'affichage que j'ai mis qui ne marche pas

Private Sub ListBox1_Click()
ThisWorkbook.Worksheets("Stock total").Activate
Modificationarticle.TextBox1.Value = ThisWorkbook.Worksheets("Temp21").Range("A" & ListBox1.ListIndex + 1).Value
Modificationarticle.TextBox2.Value = ThisWorkbook.Worksheets("Temp21").Range("B" & ListBox1.ListIndex + 1).Value
Modificationarticle.TextBox3.Value = ThisWorkbook.Worksheets("Temp21").Range("C" & ListBox1.ListIndex + 1).Value
Modificationarticle.TextBox4.Value = ThisWorkbook.Worksheets("Temp21").Range("D" & ListBox1.ListIndex + 1).Value
Modificationarticle.TextBox5.Value = ThisWorkbook.Worksheets("Temp21").Range("E" & ListBox1.ListIndex + 1).Value
Modificationarticle.Show
End Sub