Re,
D'accord pour les tableaux.
En fait, mon code copie colle les commandes sur la plage C60 (il y a 4 colonnes donc de C à F). Je n'avais donc pas créé de tableaux. Si je crée un tableau, est-ce que mon code devient ?
Public Sub CreateCustomerList()
'Déclaration des variables
Dim lo As ListObject, Dict As Object, Cell As Range
'Initialisation des variables
Set lo = ActiveSheet.ListObjects(1)
Set Dict = CreateObject("Scripting.Dictionary")
'Création liste unique des client
For Each Cell In lo.ListColumns(4).DataBodyRange
Dict(Cell.Value) = ""
Next Cell
'Restitution des données
With Worksheets("Liste des clients")
With .ListObjects(1)
If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
.InsertRowRange.Cells(1).Resize(Dict.Count, 1).Value = Application.Transpose(Dict.keys)
End With
.Activate
End With
End Sub