MACRO Fusion de tableaux et suppression de doublon

Sub Fusion()
    Application.ScreenUpdating = False
    Sheets("2017RECAP").Cells.Clear

    dl2 = Sheets("2017").Range("AP" & Rows.Count).End(xlUp).Row

    With Sheets("REPORTING_AWS")
        .Range("A1:AP" & .Range("AP" & Rows.Count).End(xlUp).Row).Copy Sheets("2017RECAP").[A1]
    End With
    With Sheets("2017RECAP")
        dl1 = .Range("AP" & .Rows.Count).End(xlUp).Row
        For i = 2 To dl2
            For j = 2 To dl1
                If Sheets("2017").Range("AP" & i).Value <> .Range("AP" & j).Value Then
                    Sheets("2017").Range("A" & i & ":AP" & i).Copy Sheets("2017RECAP").Range("A" & dl1 + 1)
                End If
            Next j
        Next i
    End With
Application.ScreenUpdating = True
End Sub