Problème consolidation tableaux

[lyrics21]

Bonjour à tous,

j'essai de consolidé des tableaux identiques, sous un nouvel onglet appelé "Global" afin d'en extraire un TCD, sauf que la macro q j'utilise me copie tt les onglets à la suite en mettant des écarts entre les tableaux de plusieurs millier de lignes. Y aurait il un moyen d'avoir tt ses tableaux à la suite sans tt ces écarts?
Merci d'avance pour votre aide.
la macro ci dessous:

Sub Centraliser()
Sheets("Global").Activate
Range("A1").Select
For i = 1 To Sheets.Count
Sheets(i).Activate
If ActiveSheet.Name <> "Global" Then
Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Copy
Sheets("Global").Activate
ActiveSheet.Paste
'ActiveCell.SpecialCells(xlLastCell).Select
Range("A" & ActiveCell.SpecialCells(xlLastCell).Row + 1).Select
End If
Next i
End Sub

 

[phlaurent55]

Re : Problème consolidation tableaux

Bonjour lyrics, et bienvenue sur le forum pour ta première question

voir solution en pièce jointe

à+
Philippe

 

[lyrics21]

Re : Problème consolidation tableaux

Excellent un grand merci Phillipe et bon week! je vais tester tt de suite! 🙂

 

[lyrics21]

Re : Problème consolidation tableaux

Yes ça marche!!