Importation de données sans doublons

Sub Exportdevis()
'
' Exportdevis Macro
' Exporter base de données (BD Devis) vers fichier de consolidation : Export devis
'
CptN = 0
'A partir du fichier Devis validés G
'Selection de la feuille "BD Devis et selection de la plage à exporter "BD_Devis_export" et lancement fonction copier
 Sheets("BD Devis").Select
 NbLigDV = Application.CountA(Sheets("BD Devis").Range("B:B"))
 ActiveWorkbook.Worksheets("BD Devis").Sort.SortFields.Add Key:=Range("Q2:Q" & NbLigDV _
        ), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("BD Devis").Sort
        .SetRange Range("B1:Q" & NbLigDV)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 For i = 2 To NbLigDV
    Cell = "Q" & i
    If Range(Cell).Value = "N" Then
        CptN = CptN + 1
        If CptN = 1 Then
        'récupérer 1ère ligne selectionnée
            NumSel = i
        End If
        Range(Cell).Value = "O"
        If CptN = 1 Then
            Range("B" & i, "P" & i).Select
        Else
            Range("B" & NumSel, ActiveCell.Offset(i - NumSel, 15)).Select
        End If
    End If
 Next
 Selection.Copy
 CptN = CptN + 1
    With ActiveWorkbook.Worksheets("BD Devis").Sort
        .SetRange Range("B1:Q" & CptN)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 'Range("BD_Devis_export").Select
 'Selection.Copy
'Ouverture fichier Export devis et sélection de la feuille assistante 3 "Assist3"
  Workbooks.Open Filename:= _
        "C:\Users\Toto\Desktop\Exportdevis.xlsm"
        Sheets("Assist3").Select
'Aller à la cellule correspondant à la fin du tableau et lancer la commance coller valeur&format
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
'Fermer le fichier Export devis
    Workbooks("Exportdevis.xlsm").Close True
'Sur le fichier "Devis validés G"
    Workbooks("Devis_validés_G.xlsm").Activate
'Les données de BD devis exportées sont colorées en marron
    Sheets("BD Devis").Select
    Range("BD_Devis_export").Select
    With Selection.Font
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0
    End With
 'Aller à la feuille menu et selectionner la cellule T21 et y inscrire la date et l'heure du moment (attention format cellule)
    Sheets("Menu").Select
    Range("T21").Select
    ActiveCell.FormulaR1C1 = "=NOW()"
    Range("T21").Select
 'Copier la cellule sur T22 (valeur)
    Selection.Copy
    Range("T22").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'Effacer la cellule T21
    Range("T21").Select
    Selection.ClearContents
'Se positionner sur B3
    Range("B3").Select

End Sub