Private Sub UserForm_Initialize()
Dim dLig As Long, Lig As Long
' Pas de RowSource
Me.ComboArrivéCariste.RowSource = ""
' Effacer la liste (au cas ou)
Me.ComboArrivéCariste.Clear
' Avec la feuille
With Sheets("Réceptions")
dLig = .Range("A" & Rows.Count).End(xlUp).Row
For Lig = 5 To dLig
If .Range("L" & Lig).Value <> "Terminé" Then
Me.ComboArrivéCariste.AddItem .Range("A" & Lig)
End If
Next Lig
End With
End Sub