Problemes de recherche vba

Private Sub ComboBox1_Change()
Dim dl1 As Long
Dim lig As Long
ComboBox2.Visible = True
flag = True
With ComboBox2
    .Clear
    .ColumnCount = 3
    .ColumnWidths = "50;50;0"
    .Style = fmStyleDropDownList '
    .BoundColumn = 1 ' combobox1.text contient le nom
End With

With Sheets("ETAT DU STOCK")
    dl1 = .Range("b65536").End(xlUp).Row
    Do
        
        lig = recherchemot("b" & lig + 1 & ":b" & dl1, ComboBox1.Value, "ETAT DU STOCK", 1)
        If lig = 0 Then Exit Do
        ComboBox2.AddItem .Range("c" & lig).Value
        ComboBox2.List(ComboBox2.ListCount - 1, 1) = .Range("f" & lig).Value
        ComboBox2.List(ComboBox2.ListCount - 1, ComboBox2.ColumnCount - 1) = lig
        If lig = dl1 Then Exit Do
    Loop
End With

flag = False
End Sub