Private Sub UserForm_Initialize()
Dim Cell As Range
With Sheets("Stock")
For Each Cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
If Cell <> "" Then Me.ComboRef.AddItem Cell
If Cell.Offset(0, 1) <> "" Then Me.ComboDésignation.AddItem Cell.Offset(0, 1)
If Cell.Offset(0, 6) <> "" Then Me.ComboConvoyeur.AddItem Cell.Offset(0, 6)
Next
End With
End Sub