Re,
Essaie cette nouvelle procédure pour ne copier que les valeurs.
Sinon, pour la 1ère. question, je n'ai pas le souci dans ton classeur.
Cdlt.
Public Sub Copy_data()
Dim ws As Worksheet, ws2 As Worksheet
Dim Rng As Range
Dim lCol As Long, lCol2 As Long, lRow As Long
Application.ScreenUpdating = False
Set ws = Worksheets("Feuil1")
Set ws2 = Worksheets("Feuil2")
Set Rng = ws.Cells(1).CurrentRegion
lRow = ws2.Cells(Rows.Count, 5).End(xlUp).Row + 1
For lCol = 1 To Rng.Columns.Count
lCol2 = Choose(lCol, 5, 8, 12, 13, 17, 19, 26, 27, 29, 30, 35)
Rng.Columns(lCol).Offset(1).Resize(Rng.Rows.Count - 1).Copy
ws2.Cells(lRow, lCol2).PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
Next lCol
End Sub