Salut à tous, j'ai un problème avec un fichier excel que j'ai obtenu en convertissant un fichier pdf en excel, le fichier convertis a plus de 409 feuilles, je voudrais consolider ces feuilles en une seule, j'ai besoin de votre aide.
voici le fichier joint :
en créant une feuille "global" , ceci devrait fonctionner
P.
VB:
Sub consolider()
Application.ScreenUpdating = False
Sheets("Global").Cells.ClearContents
On Error Resume Next
For s = 2 To Sheets.Count
If Sheets(s).Name = "global" Then GoTo suivant
Set desti = Sheets("global").[A65000].End(xlUp)
Sheets(s).[A1].CurrentRegion.Copy Destination:=desti(2)
suivant:
Next s
End Sub
Merci pour ta réponse rapide et précise, sauf que dans la liste, les entêtes apparaisses, comment faire pour les supprimées au même au moment que la copie. Merci encore une fois.