macro de consolidation d'onglets

Bonjour,

je voudrais savoir si quelqu'un a une macro de consolidation d'onglets qui marche. car moi j'ai celle ci mais elle marche pas bien, elle ne consolide qu'une partie des colonnes :

Merci!

Sub consolide_onglets()
Sheets("Inventaires Conso").[A1].CurrentRegion.Offset(1, 0).Clear
For s = 1 To Sheets.Count
Range(Sheets(s).[A1], Sheets(s).[A65000].End(xlUp).End(xlToRight)).Copy _
[A65000].End(xlUp).Offset(1, 0)
Next s
On Error Resume Next
[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub