Sub Coller()
Dim col%, c As Range, i%
Application.ScreenUpdating = False
With Sheets("tcd").PivotTables(1).TableRange1
col = .Columns.Count + 2
.EntireColumn.Copy .EntireColumn.Cells(1, col) 'pour copier les largeurs des colonnes
.Columns(col).EntireColumn.Resize(, .Columns.Count).Clear 'RAZ
For Each c In .Cells
c(1, col) = c
c(1, col).Interior.Color = c.DisplayFormat.Interior.Color
c(1, col).Font.Color = c.DisplayFormat.Font.Color
c(1, col).Font.Bold = c.DisplayFormat.Font.Bold...
Sub Coller()
Dim c As Range, i%
For Each c In [A3:C12] 'plage à adapter
c(1, 5) = c
c(1, 5).Interior.Color = c.DisplayFormat.Interior.Color
c(1, 5).Font.Color = c.DisplayFormat.Font.Color
c(1, 5).Font.Bold = c.DisplayFormat.Font.Bold
For i = 7 To 10
If c.DisplayFormat.Borders(i).LineStyle <> xlNone Then c(1, 5).Borders(i).Weight = c.DisplayFormat.Borders(i).Weight
Next i, c
End Sub
Sub Coller()
Dim col%, c As Range, i%
Application.ScreenUpdating = False
With Sheets("tcd").PivotTables(1).TableRange1
col = .Columns.Count + 2
.EntireColumn.Copy .EntireColumn.Cells(1, col) 'pour copier les largeurs des colonnes
.Columns(col).EntireColumn.Resize(, .Columns.Count).Clear 'RAZ
For Each c In .Cells
c(1, col) = c
c(1, col).Interior.Color = c.DisplayFormat.Interior.Color
c(1, col).Font.Color = c.DisplayFormat.Font.Color
c(1, col).Font.Bold = c.DisplayFormat.Font.Bold
For i = 7 To 10
If c.DisplayFormat.Borders(i).LineStyle <> xlNone Then c(1, 5).Borders(i).Weight = c.DisplayFormat.Borders(i).Weight
Next i, c
End With
End Sub