Private Sub UserForm_Activate()
Dim TblTmp(), i%, k%
tb19 = Date
With Worksheets("Base")
Set Rng = .Range("A2:A" & .[A65000].End(xlUp).Row)
End With
With Rng
ReDim TblTmp(.Rows.Count - 1, 9)
For i = 1 To .Rows.Count
For k = 1 To 10
TblTmp(i - 1, k - 1) = .Cells(i, k).Text
Next k
Next i
End With
Me.ListBox1.List = TblTmp
For i = 0 To UBound(TblTmp, 1)
TblTmp(i, 0) = TblTmp(i, 0) & " " & TblTmp(i, 1)
Next i
ReDim Preserve TblTmp(UBound(TblTmp, 1), 0)
Me.ComboBox1.List = TblTmp
Me.Enreg.Value = UBound(TblTmp, 1) + 1
ReDim TblTmp(1): TblTmp(0) = "Oui": TblTmp(1) = "Non"
Me.tb15[COLOR=#ff0000][COLOR=#ff0000].List = [/COLOR][/COLOR]TblTmp
End Sub