erreur 1004 sous plusieurs formes

Bonjour à tous, mon responsable m'a demandé d'automatiser un de ses fichiers excel, jusque là pas de soucis mais lorsque je fais des copier coller, le message d'erreur apparaît avec les cellules fusionnées ne peuvent être copiées ou fonction pastespecial impossible. Si quelqu'un a une idée cela fait 3 jours que je cherche j'ai fait le tour du site mais ne suis pas tombé sur ce dont j'avais besoin. Voici une partie de ce code:

Sub tableau()
'
' tableau Macro
'

'
'Janvier'
Sheets("Janvier2011").Select
Range("A17:K200").Select
Selection.Copy
Sheets("Période à coller ici ").Select
Range("A17").Select
ActiveSheet.Paste
ActiveSheet.ListObjects("Tableau594956").Range.AutoFilter Field:=6, _
Criteria1:="FE"
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Période à coller ici ").ListObjects("Tableau594956") _
.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Période à coller ici ").ListObjects("Tableau594956") _
.Sort.SortFields.Add Key:=Range("Tableau594956[[#All],[Tps d''arrêt ]]"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Période à coller ici ").ListObjects( _
"Tableau594956").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("Bilan Janvier").Select
Range("A77:K97").Select
Application.CutCopyMode = False
Selection.ClearContents
Sheets("Période à coller ici ").Select
Range("A16:K200").Select
Selection.Copy
Sheets("Bilan Janvier").Select
Range("A77").Select
Selection.PasteSpecial Paste:=xlPasteValues erreur ici
Columns("J:J").EntireColumn.AutoFit
Columns("K:K").EntireColumn.AutoFit
Columns("I:I").EntireColumn.AutoFit