Bonjour,
une tentative perfectible niveau doublon
Sub Fusion()
Application.ScreenUpdating = False
Dim Recap As Worksheet
Set Recap = Sheets("2017recap")
Sheets("2017RECAP").Cells.ClearContents
Sheets("REPORTING_AWS").[A1].CurrentRegion.Copy Destination:=Recap.[A1]
Set desti = [Recap].[B65000].End(xlUp)
Sheets("2017").[A1].CurrentRegion.Copy Destination:=desti(1, 0)
' suppression des doublons
Recap.Select
[AP1].Sort Key1:=[AP2], Order1:=xlAscending, Header:=xlYes
ActiveSheet.Range("$A$2:$AP$60000").RemoveDuplicates Columns:=42, Header:=xlYes
Application.ScreenUpdating = True
End Sub