Globaliser un macro

'C/P des colonnes commandes et dates de livraisons
    Sheets("CRNET-CDE").Range("C:C").Copy Destination:=Sheets("MACRO").Range("C1")
    Sheets("CRNET-CDE").Range("F:F").Copy Destination:=Sheets("MACRO").Range("B1")
    
    'C/P des retards
    
    Sheets("CRNET-CDE").Select
    Range("G:AH").Select
    Selection.Copy
    Sheets("MACRO").Select
    Range("I1").Select
    ActiveSheet.Paste
    
    'Somme des retards
    Range("I21").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=SUM(R[-19]C:R[-1]C)"
    Range("I21").Select
    Selection.AutoFill Destination:=Range("I21:AJ21"), Type:=xlFillDefault
    Range("I21:AJ21").Select
    Range("AG22").Select

    'Réorganisation, transpose
    Range("I21:AJ21").Select
    Selection.Copy
    Range("I22").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, transpose:=False
    Range("I2:AJ21").Select
    Range("I21").Activate
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Range("I1:AJ2").Select
    Selection.Copy
    Range("E1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, transpose:=True
            
    'supression
    Range("H1:AO2").Select
    Selection.Delete Shift:=xlToLeft