Sub Conso()
Dim Derlig1 As Long, Derlig2 As Long
Derlig1 = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row
Derlig2 = Sheets("Feuil2").Cells(Rows.Count, 1).End(xlUp).Row
Set Dest = Sheets("Feuil1").Range("A" & Derlig1)
Sheets("Feuil2").Range("A2:D" & Derlig2).Copy Dest
With Sheets("Feuil1")
Derlig1 = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("A1:D" & Derlig1).RemoveDuplicates Columns:=Array(1, 2, 3, 4), _
Header:=xlYes
End With
End Sub