Sub rudy()
Set d = CreateObject("Scripting.Dictionary")
With Sheets("Feuil2")
Set r1 = .Range("C3:C" & .Range("C65000").End(xlUp).Row)
Set r2 = .Range("E3:E" & .Range("E65000").End(xlUp).Row)
For Each c In r1
If Not d.Exists(c.Value) Then
d.Add c.Value, c.Value
Txt = Txt & c & " / "
End If
Next c
For Each c In r1
If Not d.Exists(c.Value) Then
d.Add c.Value, c.Value
Txt = Txt & c & " / "
End If
Next c
End With
Sheets("Feuil1").Range("C5") = Left(Txt, Len(Txt) - 3)
End Sub
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
Sub unik()
Dim LesValeurs As Object, Cel As Range, Plg As Range
With Sheets("Feuil2")
Set Plg = .UsedRange.SpecialCells(xlCellTypeConstants, 23)
Set LesValeurs = CreateObject("Scripting.Dictionary")
For Each Cel In Plg
LesValeurs(Cel.Value) = Cel.Value
Next Cel
End With
Sheets("Feuil1").Range("C5") = Join(LesValeurs.Items, " / ")
End Sub
....... c2.Offset(0, -3).Value = "TENP"*