Sub unique()
Dim LesValeurs As Object
Dim Cel As Range, Plg As Range
With Sheets("Feuil2")
Set Plg = Union(.Range(.[C3], .[C65000].End(xlUp)), .Range(.[E3], .[E65000].End(xlUp)))
Set LesValeurs = CreateObject("Scripting.Dictionary")
For Each Cel In Plg
If Cel.Value <> "" Then LesValeurs(Cel.Value) = Cel.Value
Next Cel
End With
Sheets("Feuil1").Range("C5").Value = Join(LesValeurs.Items, " / ")
End Sub