Bonjour TONY83470, Arturo83,
Une autre version de la partie chargeant la combobox762
Dim i As Integer, Mag As Worksheet
i = 1
Set Mag = Worksheets("MAGASIN")
With LOGISTIQUE.ComboBox762
Do While Mag.Cells(i + 1, 14).Value <> ""
.Value = Mag.Cells(i + 1, 7).Value
If .ListIndex = -1 Then .AddItem Mag.Cells(i + 1, 7).Value
i = i + 1
Loop
.ListIndex = -1
End With
N.B. : Pas très parlant l'appellation des combo et text Box
A+