Code VBA, copie coller sans doublon

Bonjour,

Je veux remplir une base de donnée à partir d'un fichier toujours différent sans créer de doublon dans ma base de donnée. C'est justement le bout qu'il me manque. À noter qu'il y a une colonne sur laquelle je pourrai me baser pour m'assurer qu'il n'y ait pas de doublon. Il faudrait donc que le code recherche dans cette colonne.

Jusqu'à maintenant mon code ressemble à cela, merci de votre aide :

Sub Copy_Paste_Below_Last_Cell()

Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Dim lCopyLastRow As Long
Dim lDestLastRow As Long

  Set wsCopy = ThisWorkbook.Worksheets("Copie des comparables")
  Set wsDest = Workbooks("Registre test.xlsm").Worksheets("eval")

Workbooks("Excel test.xlsm").Worksheets("Copie des comparables").Range("B3:BC7").Copy _

  lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row

  wsCopy.Range("B3:BC7" & lCopyLastRow).Copy
    wsDest.Range("A" & lDestLastRow).PasteSpecial xlPasteValues, SkipBlanks:=True

  wsDest.Activate

End Sub

Bonjour,

Il existe ceci pour supprimer tous les doublons en 1 seule fois, copiez cette ligne de code, exemple à adapter à votre fichier:

    ActiveSheet.Range("A1:H" & lDestLastRow).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8), Header:=xlYes

Cdlt

Merci j'apprécie