Additem access ne fonctionne plus

Bonjour,

j'essaye d'ajouter des lignes dans une zone de liste en fonction de ce qui a été choisi dans une liste déroulante, voici mon code:

Private Sub dossier_Change()
Dim BDD As DAO.Database
Dim outillage As DAO.Recordset
Dim ref As String

Set BDD = CurrentDb
Set outillage = BDD.OpenRecordset("SELECT DISTINCT ref_outillage FROM outillages WHERE dossier_1 ='" & Me.dossier.Value & "'")

outillage.MoveFirst
Do Until outillage.EOF
ref = outillage.Fields("ref_outillage").Value
MsgBox (ref)
Me.out_transfert.AddItem (ref)
outillage.MoveNext
Loop

End Sub

Le texte renvoyé par la msgbox est correct, et ce code a fonctionné pendant quelques essais avant que je commence à essayer de rajouter un RemoveItem au début du code pour vider ma liste avant de la reremplir.
Est ce que vous auriez une solution à me proposer? Car j'ai pas mal cherché pour essayer de trouver une solution mais je n'y arrive pas.

Merci d'avance à ceux qui prendront sur leur temps pour m'aider.
Bonne journée