Probleme format tableau VBA

Bonjour,

Au fait j'ai le probleme suivant: quand j'essaie de faire un save as d'un tableau excel dans un nouveau fichier .xls, le format du tableau change et ça devient moche.

J'ai fait :

wbArchive.Worksheets(1).Rows(i).AutoFit
wbArchive.Worksheets(1).Range("C" & i & ":J" & i).Select
With Selection
.VerticalAlignment = xlCenter
.HorizontalAlignment = xlCenter
End With

mais cela ne marche pas,

Avez vous des idées svp ?

Merci beaucoup