Compilation donnée dans un seul onglet

Option Explicit

Sub recapitulatif()
Dim w As Workbook
Dim nF As Byte, j As Byte
Dim d As Object
Dim k
Dim t()
Dim i&, ii&

Set w = ThisWorkbook
Set d = CreateObject("Scripting.Dictionary")

For nF = 2 To 5
    With w.Sheets(nF)
        ii = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
            For i = 2 To ii
                For j = 1 To 7
                    If Not .Cells(i, j).Value = "" Then
                        d(.Cells(i, j).Value) = ""
                    End If
                Next j, i
    End With
Next nF

With w.Sheets(6)
    .Columns(1).Clear
    .[a1].Resize(d.Count).Value = Application.Transpose(d.keys)
End With
   
End Sub