Private Sub InitDesDéroulants()
Dim Collec1 As New Collection, tA, tB
Dim Cell As Range, Itm As Long
With Sheets("Stocks")
'If Sheets("Stocks").Range("A4") <> "" Then
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
Next
'End If
End With
With Sheets("Déroulant")
If .Range("A2") <> "" Then
For Each Cell In .Range("A2:A" & .Range("A10").End(xlUp).Row)
Me.ComboTauxTva.AddItem (Cell)
Next
End If
If .Range("B2") <> "" Then
For Each Cell In .Range("B2:B" & .Range("B100").End(xlUp).Row)
Me.ComboFamille.AddItem (Cell)
Next
End If
End With
End Sub