Problèmes macro

Sub transfert()
'Macro par messondewez le 28/12/2011
Dim lig As Long 'Les numéros de lignes excel sont de type  'Long' et non 'Integer'
lig = Sheets("Cumul").Range("A100").End(xlUp).Row
With Sheets("Liste").Range("C100").End(xlUp)
   .Offset(1).Resize(lig - 3, 13).Value = Sheets("Cumul").Range("A4").Resize(lig - 3, 13).Value
End With    
End Sub

Sub CopierColler()
'
' CopierColler Macro Divers68
'

'
    Range("A1:M19").Select
    Sheets("Liste").Select
    Range("A1").Select
    Sheets("Cumul").Select
    Selection.Copy
    Sheets("Liste").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Liste").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Liste").Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Liste").Sort
        .SetRange Range("A1:M17")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub