Bonjour,
Toujours pas spécialiste de la chose, mais j'ose...
Option Explicit
Dim tbl()
Private Sub ComboBox1_Change()
Dim n
n = Application.VLookup(ComboBox1.Value, tbl, 2, False)
MsgBox n
Erase tbl
End Sub
Private Sub UserForm_Initialize()
Dim ws As Worksheet
Dim rng As Range, Cell As Range
Dim I As Long
Application.ScreenUpdating = False
Set ws = Worksheets("Approvisionnement")
With ws
.AutoFilterMode = False
.Cells(1).CurrentRegion.AutoFilter Field:=6, Criteria1:="FAUX"
With .AutoFilter.Range
On Error Resume Next
Set rng = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
End With
End With
If rng Is Nothing Then
'
Else
ReDim tbl(1 To rng.Cells.Count, 1 To 2): I = 1
For Each Cell In rng
tbl(I, 1) = Cell.Value
tbl(I, 2) = Cell.Row
Me.ComboBox1.AddItem Cell.Value
I = I + 1
Next Cell
End If
ws.ShowAllData
Set rng = Nothing: Set ws = Nothing
End Sub