Private Sub CL_DicBdDPersoSVP(ByVal CBM As ComboBoxMembre)
Dim T() As Variant, L As Long
T = CL.PlgTablo.Columns("B").Value
For L = 1 To UBound(T)
If VarType(T(L, 1)) = vbDouble Then T(L, 1) = Format(T(L, 1), "0"" ""000"" ""00"" ""000"" ""0")
Next L
Set CBM.DicBdD = DictionnArbo(T)
End Sub