Macro copie onglet nouveau fichier, Pb de mise en forme des tableaux

Sub FichierClient_Clic()
Dim tablo, F As Object, n%, chemin$, test As Boolean, fichier$, FileFormatNum

If MsgBox("Voulez-vous générer le fichier Client?", vbYesNo) = vbYes Then

Application.ScreenUpdating = False
Application.DisplayAlerts = False

tablo = Array("Synthèse", "Projets Devis", "Service Recurrent", "IGE-Indicateurs SR", "Catalogue de Services") 'noms des feuilles à copier
Set F = ThisWorkbook.Sheets(tablo)

With Application
n = .SheetsInNewWorkbook
.SheetsInNewWorkbook = F.Count
Workbooks.Add
.SheetsInNewWorkbook = n
End With

With ActiveWorkbook
For n = 1 To F.Count
With .Sheets(n)
F(n).Cells.Copy .Cells
.UsedRange = .UsedRange.Value
.Name = F(n).Name
End With

Next
.Sheets(tablo).Select
'ActiveWindow.DisplayGridlines = False 'le quadrillage n'est pas affiché
.Sheets(1).Select
chemin = "C:\Temp\"
test = Val(Application.Version) < 12
'---enregistrement au format en cours-------------
fichier = "test" & IIf(test, ".xls", ".xlsx")
FileFormatNum = IIf(test, xlWorkbookNormal, 51)

.SaveAs chemin & fichier, FileFormatNum
.Close
End With
End If

MsgBox "Le fichier Client à été généré sous C:\Temp"
End Sub

Cliquez pour agrandir...

Excel a rencontré un contenu illisible dans "test.xlsx". Voulez-vous récupérer le contenu de ce classeur? si la source de ce classeur est fiable, cliquez sur Oui.

Cliquez pour agrandir...

Partie supprimée: /xl/drawings/drawing2.xml partie. (Forme de dessin)

Cliquez pour agrandir...