Bonjour,
Dans mon exemple ci joint, je cherche à mettre dans la colonne J toutes les entreprises ayant été trouvées dans la colonne H à l'aide d'une macro. Seulement, je souhaiterais les afficher dans la colonne J à la suite et non avec des trous entre 2 entreprises. Avez-vous une idée ?
Sub ListeSansDoublons()
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range("h2", [h65000].End(xlUp))
mondico(c.Value) = ""
Next c
[j2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
End Sub