Option Explicit
Sub Conso()
Dim i%, j%, t
For i = 1 To Sheets.Count - 1
t = Sheets(i).Range("A2:F" & Sheets(i).Range("A" & Rows.Count).End(xlUp).Row).Value
Sheets("Conso").Range("A" & Rows.Count).End(xlUp)(2).Resize(UBound(t), 6) = t
Next i
ActiveSheet.Range("A2:F" & Range("A" & Rows.Count).End(xlUp).Row).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6), Header:=xlNo
End Sub