Probleme execution macro vba car trop de données

bonjour à tous,
J'ai depuis quelques jours un problème d'exécution de ma macro car il semblerait que mon tableau soit trop grand ... La voici :

Sub couperdécaler()
Dim c As Single

    c = Timer


Application.ScreenUpdating = False

dl = Range("G1").CurrentRegion.End(xlDown).Row

Sheets("Vérif").Select
    Range("G1:K1").Select
    Selection.Copy
    Sheets("Quinté").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Copy
    Range("A2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A3").Select
    Sheets("Vérif").Select
    Range("AH1").Select

Range("AC" & Rows.Count).End(xlUp).Select
Range(ActiveCell(1, 1), ActiveCell(1, 4)).Select
Selection.Copy
Range("M1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Cells(1, 28).Select
    
        ' copie de la selection après filtre
            Columns("AM:AM").Select
            Selection.AutoFilter
            ActiveSheet.Range("$L$1:$L$60000").AutoFilter Field:=1, Criteria1:="<>"
            Range("G1:K" & dl).Select
            Selection.Copy
        ' trouve la dernière cellule vers le haut et copie
            Worksheets("quinté").Select
            Range("A1").Select
            ActiveSheet.Paste
            Worksheets("Vérif").Select
            Selection.AutoFilter
            
        'Effacement de la dernière ligne (AC:AG)
            Range("AC" & Rows.Count).End(xlUp).Select
            Range(ActiveCell(1, 1), ActiveCell(1, 5)).Select
            Selection.Delete Shift:=xlUp
            
            
            
        Do While Range("AC1") <> ""
        ' copie de la selection après filtre
            Columns("AM:AM").Select
            Selection.AutoFilter
            ActiveSheet.Range("$L$1:$L$60000").AutoFilter Field:=1, Criteria1:="<>"
            Range("G1:K" & dl).Select
            Selection.Copy
        ' trouve la dernière cellule vers le bas écrite et descend d'un vers le bas
             Worksheets("quinté").Select
             Range("A:A").Select
             Selection.End(xlDown).Select
             Selection.Offset(1, 0).Select
             ActiveSheet.Paste
             
            ' Columns("A:E").Select
    'ActiveSheet.Range("$A$1:$E$65493").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5) _
    '    , Header:=xlNo
        
        
             Worksheets("Vérif").Select
             Selection.AutoFilter
            
            'Effacement de la dernière ligne (AC:AG)
            Range("AC" & Rows.Count).End(xlUp).Select
            Range(ActiveCell(1, 1), ActiveCell(1, 5)).Select
            Selection.Delete Shift:=xlUp
            
            Range("AC" & Rows.Count).End(xlUp).Select
            Range(ActiveCell(1, 1), ActiveCell(1, 5)).Select
            Selection.Copy
            Range("M1").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
            
            Loop
      
        
           Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
            Cells(1, 28).Select
            
        
            Sheets("Quinté").Select
            Range("A1:E2").Select
            Selection.Delete Shift:=xlUp
            
            
            Columns("A:E").Select
    ActiveSheet.Range("$A$1:$E$60000").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5), _
        Header:=xlNo
    ActiveWorkbook.Worksheets("Quinté").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Quinté").Sort.SortFields.Add Key:=Range("A1:A60000") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Quinté").Sort.SortFields.Add Key:=Range("B1:B60000") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Quinté").Sort.SortFields.Add Key:=Range("C1:C60000") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Quinté").Sort.SortFields.Add Key:=Range("D1:D60000") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Quinté").Sort.SortFields.Add Key:=Range("E1:E60000") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Quinté").Sort
        .SetRange Range("A1:E60000")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
   
    Range("M1").Select
    ActiveCell.FormulaR1C1 = "=RC[-12]+RC[-11]"
    Range("N1").Select
    ActiveCell.FormulaR1C1 = "=RC[-13]+RC[-12]+RC[-11]"
    Range("O1").Select
    ActiveCell.FormulaR1C1 = "=RC[-14]+RC[-13]+RC[-12]+RC[-11]"
    Range("P1").Select
    ActiveCell.FormulaR1C1 = "=RC[-15]+RC[-14]+RC[-13]+RC[-12]+RC[-11]"
    Range("M1:P1").Select
    Selection.AutoFill Destination:=Range("M1:P16"), Type:=xlFillDefault
    Range("M1:P16").Select
    Selection.AutoFill Destination:=Range("M1:P1379"), Type:=xlFillDefault
    Range("M1:P1379").Select
    Range("AB1").Select
   Application.ScreenUpdating = True
   MsgBox Timer - c
       End Sub

Peut-être sauriez-vous m'apporter votre aide s'il vous plait afin qu'elle puisse intégrer un maximum de données (65 000). Car à ce jour, elle tourne de 07h30 à midi sans arrêt et me dit quelque fois qu'elle ne peut continuer....
Je pense que mon langage vba est lourd aussi.
Remerciements par avance!