Sub trouve()
Range("B2").Delete
num_ref = Range("a1").Value
With Worksheets("Feuil1").Range("I4:I10")
Set c = .Find(num_ref, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
ligne = c.Row
lenom = Range("A" & ligne).Value
If Range("B2") = "" Then
Range("B2") = lenom
Else
Range("B2") = Range("B2") & " / " & lenom
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub