Erreur code VBA - RemoveDuplicates

Bonjour à tous

je viens de modifier ma BDD initiale (feuille bdd) en la modifiant sous forme de tableau. En effet, j'ai des soucis lors de la MAJ des TCD qui ne reprennent pas les nouvelles lignes qui se rajoutent à ma base de données.

Mais suite à cette modification, j'ai cette erreur dans le code :

Pouvez vous m'aider?

Merci d'avance

Bonjour,

Un peu confus et je me pose la question d'une telle procédure.

Sinon, une proposition pour le principe.

Cdlt

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lo As ListObject, lo2 As ListObject, r As Range
    Set lo = Me.Range("Tableau1").ListObject
    Set lo2 = Worksheets("tcd1").Range("Tableau2").ListObject
    With lo2
        If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
        Set r = .InsertRowRange.Cells(1)
    End With
    If lo.InsertRowRange Is Nothing Then
        lo.DataBodyRange.Copy Destination:=r
        lo2.Range.RemoveDuplicates Columns:=1, Header:=xlYes
    End If
End Sub

Bonjour Jean Eric et merci de votre retour.

Le principe.

Une base de donnée est extraite au format .xls puis copier et coller dans mon tableur. Ensuite j'efface les doublons et me sert de la nouvelle source sans doublons pour les TCD.

Questions :

Lorsque la BDD est extraite, dois je la modifier de suite sous forme de tableau ou puis la copier coller directement dans ma feuille bdd

Pourquoi les lignes supplémentaires apparaissent t'elles dans les champs du TCD mais non cochés automatiquement? du coup si je veux les voir apparaitre dans le TCD, je suis obligé de le faire manuellement

Merci d'avance