Dim d As Variant, cpt As Variant
d = Application.Match(Search_Product, [DB_Products], 0)
cpt = Application.CountIf([DB_Products], Search_Product) - 1
If Not IsError(cpt) And Not IsError(d) Then
For i = d To d + cpt - 1
Search_Country.AddItem [DB_Country].Cells(i, 1).Value
Next i
Else
MsgBox "Erreur " & vbCrLf & "d = " & CStr(d) & vbCrLf & "cpt = " & CStr(cpt)
End If