Remplissage ListBox

Bonjour à tous,

J'ai besoin de votre aide afin de remplir une ListBox d'un userform par des données situées dans l'une de mes feuilles. Après différentes recherches, j'utilise le code suivant :

Private Sub CommandButton1_Click()

Dim feuille As Worksheet
Dim tableau As Variant
Dim Plage As Range

Set feuille = ThisWorkbook.Worksheets(2)
feuille.Activate
Set Plage = feuille.Range("A1").CurrentRegion
tableau = Plage.Value
Achats.ListBox1.RowSource = tableau

Achats.Show

End Sub

Pour information
Achats est mon userform

Ce code fonctionnait très bien au départ mais lorsque je rouvre mon fichier l'affichage change à chaque fois : parfois il manque des colonnes, parfois la listbox est vide.

J'ai donc essayé d'utiliser à la place ce code :

Private Sub Achats_Initialize()
Dim tableau() As Variant

With ThisWorkbook.Worksheets("Demandes")
Set tableau = .Columns("A:H").Value
End With

Achats.ListBox1.List = tableau
End Sub

En utilisant cette macro, l'affichage de la listbox reste toujours vide.

Je n'ai pas trouvé de sujet dans le forum au sujet d'affichage qui change à chaque utilisation du fichier.

Je vous joins mon fichier, sachant que les autres macros fonctionnent et qu'il n'y a que cette partie qui me pose problème.

Merci par avance de votre aide.