Sub ActualiserCombo()
'youky (BJ) + Magic_Doctor
Dim liste, onglet, combo, nc
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim k As Byte
onglet = "Base"
liste = Array("", "Gly", "Moments", "Gly")
combo = Array("", "ComboBoxGlicemias", "ComboboxMoments", "ComboBoxMomentosDia")
With Sheets(onglet)
For nc = 1 To 3 '3 est le nombre de combo
.OLEObjects(combo(nc)).Object.Clear
For k = .Range(liste(nc)).Row To .Range(liste(nc)).End(4).Row
If .Cells(k, .Range(liste(nc)).Column) <> "" Then .OLEObjects(combo(nc)).Object.AddItem .Cells(k, Range(liste(nc)).Column)
Next
If .OLEObjects(combo(nc)).Object.ListCount = 0 Then Exit Sub
.OLEObjects(combo(nc)).Object.Text = .OLEObjects(combo(nc)).Object.List(0)
Next nc
End With
End Sub