Sub Concatener_Le_Tierce()
Dim Derlig As Long, i As Long
Derlig = [D65536].End(xlUp).Row
For i = 6 To Derlig
Cells(i, 9) = Cells(i, 4) & " - " & Cells(i, 5) & " - " & Cells(i, 6)
Next i
End Sub
'Ici on extrait les différents élements de la colonne I en colonne J
'et les comptabilise en colonne K
Sub Compter_Elements() 'Boisgontier
Set MonDico = CreateObject("Scripting.Dictionary")
For Each cel In Range("I6:I" & [I65536].End(xlUp).Row)
MonDico.Item(cel.Value) = MonDico.Item(cel.Value) + 1
Next cel
[J6].Resize(MonDico.Count, 1) = Application.Transpose(MonDico.keys)
[K6].Resize(MonDico.Count, 1) = Application.Transpose(MonDico.items)
End Sub