Rasembler plusieurs tableaux en un seul

Bonjour

Je n'arrive pas a trouver la solution

j'aurai besoin d'avoir un onglet récapitulatif annuel des 12 onglet précédant. tout du moins du tbl de d5 a k56 qui ce trouve sur tout les onglets(mois).

j'y arrive en parti mais pas avec l'affichage identique date / chiffre / lettre.

Merci de votre aide

Bonjour

Un essai à tester. Te convient-il ?

Option Explicit

Dim f As Worksheet, tablo, tabloR()
Dim i&, iR&, j&, k&

Sub Report()

    k = 0
    For Each f In Worksheets
        If f.Range("D4") = "date" And f.Range("E4") = "entrée" Then
            If f.Range("D5") <> "" Then
                tablo = f.Range("C5:K" & Application.Max(5, f.Range("D61").End(xlUp).Row))
                For i = 1 To UBound(tablo, 1)
                    ReDim Preserve tabloR(1 To UBound(tablo, 2), 1 To 1 + k)
                    For j = 1 To UBound(tablo, 2)
                        If j = 2 Then
                            tabloR(j, 1 + k) = DateValue(tablo(i, j)) * 1
                        Else
                            tabloR(j, 1 + k) = tablo(i, j)
                        End If
                    Next j
                    k = k + 1
                Next i
            End If
        End If
        Erase tablo
    Next f
    Sheets("RECAP ANNUEL").Range("B7").Resize(UBound(tabloR, 2), UBound(tabloR, 1)) = Application.Transpose(tabloR)
End Sub

Bye !

Merci je vais tester