Bonjour,

Mettant en place des reporting, je dois agréger plusieurs feuilles en une seule pour créer des TCD.
J'ai plusieurs feuilles qui contiennent le même tableau. Pour tout mettre dans le même tableau, j'ai adapté plusieurs codes trouvés ici ou ailleurs.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub synthese()
Dim Sh As Worksheet
Dim Lastrow As Integer
Application.ScreenUpdating = False
[Recap!2:65536].EntireRow.Delete
With Sheets("Recap")
    For Each Sh In Sheets
    Lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
        If Sh.Name <> .Name Then
            Sh.Range("A2:M2" & Lastrow).Copy .Cells(.Rows.Count, 1).End(xlUp)(2)
        End If
    Next Sh
End With
End Sub
Sur les 5 feuilles à traiter, tout ce passe bien pour 4 mais pour une la macro ne prends les données que jusqu'à la ligne 21 et je ne comprends pas pourquoi.

Quelqu'un aurait-il une idée, est-ce un problème de code ou de structure de fichier ?
Merci de votre aide.

Pour info, je me débrouille, mais je ne suis pas un pro de VBA. D'autant plus que pendant quelques mois je n'utilisait plus Excel et j'ai perdu un peu mais automatisme.