Re,
Viny,
Sub Copie()
Dim W1 As Worksheet, W2 As Worksheet, C As Range
Dim Intitule As String, Prix As String
Dim I As Integer, J As Integer, K As Integer
Set W1 = Sheets("Feuil1"): Set W2 = Sheets("Feuil2")
Intitule = W2.[B7]
Prix = W2.[B9]
K = W1.[A65536].End(xlUp).Row
If W2.[B3] > W2.[B4] Then MsgBox "Le N° en B4 " & W2.[B4] & " est inferieur à celui de B3 " & W2.[B3]: Exit Sub
For I = W2.[B3] To W2.[B4]
With W1.Range("A1:A" & K)
Set C = .Find(I, LookIn:=xlValues)
End With
If C Is Nothing Then
J = W1.[A65536].End(xlUp).Row + 1
W1.Range("A" & J) = I
W1.Range("B" & J) = Intitule
W1.Range("I" & J) = Prix
End If
Next I
End Sub
A+++