Private Sub UserForm_Initialize()
Set CL = New ComboBoxLiées
Set Ex = Application
CL.CorrespRequise = True
CL.Plage Farticles.[A4]
CL.Add Me.CbxRayon, "B"
CL.Add Me.CbxType, "C"
CL.Add Me.CbxArticle, "D"
'CL.Add Me.Cbxunité, "D"
CL.Actualiser
'CL.Plage RG_DÉBUT_BASE_ARTICLES ' rajouter par dranreb de excel-downloads
'CL.Plage Farticles.Rows(4)
Farticles.Rows (4)
Me.OB10.Value = 1
OBtranche.Value = 1
Me.StartUpPosition = 1
End Sub