Mise en forme d'un tableau en vba

Bonjour,

mon problème est le suivant :

Dans un classeur excel, je compile sur la feuil5, 4 tableaux sur les feuil1, 2, 3, 4. Ces tableaux peuvent variés en terme de ligne. Pour cela, j'utilise le code suivant :

Dim nbre As Byte, cptr As Byte, derligx As Long, derlig4 As Long
Dim tablo, coul As Byte

nbre = ThisWorkbook.Sheets.Count
Application.ScreenUpdating = False

For cptr = 1 To nbre - 1
With Sheets(cptr)
derligx = .Range("E65536").End(xlUp).Row + 1
tablo = .Range("A1:L" & derligx)
End With

With Sheets(5)
derlig4 = .Range("E65536").End(xlUp).Row
.Cells(derlig4 + 1, 1).Resize(derligx, 12) = tablo

End With

Cela marche, cependant ce code ne garde pas la mise en forme de mes tableaux (contour, couleur de remplissage). Un copier/coller le fait, mais je n'arrive pas avec ce même algorithme à utiliser un copier/coller. Quelles solutions auriez vous?

Merci