eqtri = wi.Range("A1").Value
With ComboNom
.ColumnCount = 2
columwidths = "100;0"
For j = 2 To ws.Range(rows.count,"B").End(xlUp).Row
If ws.Range("B" & j) = eqtri Then
.AddItem ws.Range("D" & j)
.List(.listcount - 1) = ws.Range("D" & j).Row
End If
Next j
End With