Private Sub InitDesDéroulants()
Dim Collec1 As New Collection, tA, tB, tC, tD
Dim Cell As Range, Itm As Long
With Sheets("Stocks")
tA = .Range("A4:A" & .Range("A65536").End(xlUp).Row).Value
Me.ComboRef.List = tA
tB = .Range("B4:B" & .Range("B65536").End(xlUp).Row).Value
ComboNom.List = tB
End With
With Sheets("Déroulant")
tC= .Range("A2:A" & .Range("A10").End(xlUp).Row).value
Me.ComboTauxTva.List= tC
tD= .Range("B2:B" & .Range("B100").End(xlUp).Row).value
Me.ComboFamille.List=tD
End With
End Sub