Sub Partie1()

''''''''''''''''''
'''Optimisation'''
''''''''''''''''''

timerdebut = Timer
Application.ScreenUpdating = False

''''''''''
'''SOC1'''
''''''''''

' Entite Macro

    Range("B2").Select
    ActiveCell.FormulaR1C1 = _
        "=SUBSTITUTE('[SOC1.XLSX]AR Outstanding Summary In Local'!R1C2,'[SOC1.XLSX]AR Outstanding Summary In Local'!R1C2,""SOC1"")"
    Range("B2").Select
    Selection.AutoFill Destination:=Range("B2:B2000")
    Range("B2:B2000").Select

' Code Macro

    Range("C2").Select
    ActiveCell.FormulaR1C1 = _
        "='[SOC1.XLSX]AR Outstanding Summary In Local'!R[20]C3"
    Range("C2").Select
    Selection.AutoFill Destination:=Range("C2:C2000")
    Range("C2:C2000").Select
    Columns("C:C").EntireColumn.AutoFit
    
' RaisonSociale Macro

    Range("D2").Select
    ActiveCell.FormulaR1C1 = _
        "='[SOC1.XLSX]AR Outstanding Summary In Local'!R[20]C4"
    Range("D2").Select
    Selection.AutoFill Destination:=Range("D2:D2000")
    Range("D2:D2000").Select
    
' NonEchu Macro

    Range("G2").Select
    ActiveCell.FormulaR1C1 = _
        "=SUM('[SOC1.XLSX]AR Outstanding Summary In Local'!R[20]C19:R[20]C22)"
    Range("G2").Select
    Selection.AutoFill Destination:=Range("G2:G2000")
    Range("G2:G2000").Select
    
' TotEchu Macro

    Range("H2").Select
    ActiveCell.FormulaR1C1 = _
        "=SUM('[SOC1.XLSX]AR Outstanding Summary In Local'!R[20]C24:R[20]C27)"
    Range("H2").Select
    Selection.AutoFill Destination:=Range("H2:H2000")
    Range("H2:H2000").Select
    
' Echu130 Macro

    Range("I2").Select
    ActiveCell.FormulaR1C1 = _
        "='[SOC1.XLSX]AR Outstanding Summary In Local'!R[20]C24"
    Range("I2").Select
    Selection.AutoFill Destination:=Range("I2:I2000")
    Range("I2:I2000").Select
    
' Echu3160 Macro

    Range("J2").Select
    ActiveCell.FormulaR1C1 = _
        "='[SOC1.XLSX]AR Outstanding Summary In Local'!R[20]C25"
    Range("J2").Select
    Selection.AutoFill Destination:=Range("J2:J2000")
    Range("J2:J2000").Select
    
' Echu6190 Macro

    Range("K2").Select
    ActiveCell.FormulaR1C1 = _
        "='[SOC1.XLSX]AR Outstanding Summary In Local'!R[20]C26"
    Range("K2").Select
    Selection.AutoFill Destination:=Range("K2:K2000")
    Range("K2:K2000").Select
    
' Echu90 Macro

    Range("L2").Select
    ActiveCell.FormulaR1C1 = _
        "='[SOC1.XLSX]AR Outstanding Summary In Local'!R[20]C27"
    Range("L2").Select
    Selection.AutoFill Destination:=Range("L2:L2000")
    Range("L2:L2000").Select
    
' TotEncours Macro

    Range("F2").Select
    ActiveCell.FormulaR1C1 = "=RC[1]+RC[2]"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F2000")
    Range("F2:F2000").Select
    
' PourcentageEchu Macro

    Range("M2").Select
    ActiveCell.FormulaR1C1 = "=(RC[-5]/RC[-7])*100"
    Range("M2").Select
    Selection.AutoFill Destination:=Range("M2:M2000")
    Range("M2:M2000").Select
    

'''''''''''''''''''''''
'''SOC2'''
'''''''''''''''''''''''

' Entite Macro

    Range("B2001").Select
    ActiveCell.FormulaR1C1 = _
        "=SUBSTITUTE('[SOC2.XLSX]AR Outstanding Summary In Local'!R1C2,'[SOC2.XLSX]AR Outstanding Summary In Local'!R1C2,""SOC2 BV"")"
    Range("B2001").Select
    Selection.AutoFill Destination:=Range("B2001:B4000")
    Range("B2001:B4000").Select

' Code Macro

    Range("C2001").Select
    ActiveCell.FormulaR1C1 = _
        "='[SOC2.XLSX]AR Outstanding Summary In Local'!R[-1979]C3"
    Range("C2001").Select
    Selection.AutoFill Destination:=Range("C2001:C4000")
    Range("C2001:C4000").Select
    
' RaisonSociale Macro

    Range("D2001").Select
    ActiveCell.FormulaR1C1 = _
        "='[SOC2.XLSX]AR Outstanding Summary In Local'!R[-1979]C4"
    Range("D2001").Select
    Selection.AutoFill Destination:=Range("D2001:D4000")
    Range("D2001:D4000").Select
    
' NonEchu Macro

    Range("G2001").Select
    ActiveCell.FormulaR1C1 = _
        "=SUM('[SOC2.XLSX]AR Outstanding Summary In Local'!R[-1979]C19:R[-1979]C22)"
    Range("G2001").Select
    Selection.AutoFill Destination:=Range("G2001:G4000")
    Range("G2001:G4000").Select
    
' TotEchu Macro

    Range("H2001").Select
    ActiveCell.FormulaR1C1 = _
        "=SUM('[SOC2.XLSX]AR Outstanding Summary In Local'!R[-1979]C24:R[-1979]C27)"
    Range("H2001").Select
    Selection.AutoFill Destination:=Range("H2001:H4000")
    Range("H2001:H4000").Select
    
' Echu130 Macro

    Range("I2001").Select
    ActiveCell.FormulaR1C1 = _
        "='[SOC2.XLSX]AR Outstanding Summary In Local'!R[-1979]C24"
    Range("I2001").Select
    Selection.AutoFill Destination:=Range("I2001:I4000")
    Range("I2001:I4000").Select
    
' Echu3160 Macro

    Range("J2001").Select
    ActiveCell.FormulaR1C1 = _
        "='[SOC2.XLSX]AR Outstanding Summary In Local'!R[-1979]C25"
    Range("J2001").Select
    Selection.AutoFill Destination:=Range("J2001:J4000")
    Range("J2001:J4000").Select
    
' Echu6190 Macro

    Range("K2001").Select
    ActiveCell.FormulaR1C1 = _
        "='[SOC2.XLSX]AR Outstanding Summary In Local'!R[-1979]C26"
    Range("K2001").Select
    Selection.AutoFill Destination:=Range("K2001:K4000")
    Range("K2001:K4000").Select
    
' Echu90 Macro

    Range("L2001").Select
    ActiveCell.FormulaR1C1 = _
        "='[SOC2.XLSX]AR Outstanding Summary In Local'!R[-1979]C27"
    Range("L2001").Select
    Selection.AutoFill Destination:=Range("L2001:L4000")
    Range("L2001:L4000").Select
    
' TotEncours Macro

    Range("F2001").Select
    ActiveCell.FormulaR1C1 = "=RC[1]+RC[2]"
    Range("F2001").Select
    Selection.AutoFill Destination:=Range("F2001:F4000")
    Range("F2001:F4000").Select
    
' PourcentageEchu Macro

    Range("M2001").Select
    ActiveCell.FormulaR1C1 = "=(RC[-5]/RC[-7])*100"
    Range("M2001").Select
    Selection.AutoFill Destination:=Range("M2001:M4000")
    Range("M2001:M4000").Select

'''''''''''''''''''
'''SOC3'''
'''''''''''''''''''

' Entite Macro

    Range("B4001").Select
    ActiveCell.FormulaR1C1 = _
        "=SUBSTITUTE('[SOC3.XLSX]AR Outstanding Summary In Local'!R1C2,'[SOC3.XLSX]AR Outstanding Summary In Local'!R1C2,""SOC3"")"
    Range("B4001").Select
    Selection.AutoFill Destination:=Range("B4001:B6000")
    Range("B4001:B6000").Select

' Code Macro

    Range("C4001").Select
    ActiveCell.FormulaR1C1 = _
        "='[SOC3.XLSX]AR Outstanding Summary In Local'!R[-3979]C3"
    Range("C4001").Select
    Selection.AutoFill Destination:=Range("C4001:C6000")
    Range("C4001:C6000").Select
    
' RaisonSociale Macro

    Range("D4001").Select
    ActiveCell.FormulaR1C1 = _
        "='[SOC3.XLSX]AR Outstanding Summary In Local'!R[-3979]C4"
    Range("D4001").Select
    Selection.AutoFill Destination:=Range("D4001:D6000")
    Range("D4001:D6000").Select
    
' NonEchu Macro

    Range("G4001").Select
    ActiveCell.FormulaR1C1 = _
        "=SUM('[SOC3.XLSX]AR Outstanding Summary In Local'!R[-3979]C19:R[-3979]C22)"
    Range("G4001").Select
    Selection.AutoFill Destination:=Range("G4001:G6000")
    Range("G4001:G6000").Select
    
' TotEchu Macro

    Range("H4001").Select
    ActiveCell.FormulaR1C1 = _
        "=SUM('[SOC3.XLSX]AR Outstanding Summary In Local'!R[-3979]C24:R[-3979]C27)"
    Range("H4001").Select
    Selection.AutoFill Destination:=Range("H4001:H6000")
    Range("H4001:H6000").Select
    
' Echu130 Macro

    Range("I4001").Select
    ActiveCell.FormulaR1C1 = _
        "='[SOC3.XLSX]AR Outstanding Summary In Local'!R[-3979]C24"
    Range("I4001").Select
    Selection.AutoFill Destination:=Range("I4001:I6000")
    Range("I4001:I6000").Select
    
' Echu3160 Macro

    Range("J4001").Select
    ActiveCell.FormulaR1C1 = _
        "='[SOC3.XLSX]AR Outstanding Summary In Local'!R[-3979]C25"
    Range("J4001").Select
    Selection.AutoFill Destination:=Range("J4001:J6000")
    Range("J4001:J6000").Select
    
' Echu6190 Macro

    Range("K4001").Select
    ActiveCell.FormulaR1C1 = _
        "='[SOC3.XLSX]AR Outstanding Summary In Local'!R[-3979]C26"
    Range("K4001").Select
    Selection.AutoFill Destination:=Range("K4001:K6000")
    Range("K4001:K6000").Select
    
' Echu90 Macro

    Range("L4001").Select
    ActiveCell.FormulaR1C1 = _
        "='[SOC3.XLSX]AR Outstanding Summary In Local'!R[-3979]C27"
    Range("L4001").Select
    Selection.AutoFill Destination:=Range("L4001:L6000")
    Range("L4001:L6000").Select
    
' TotEncours Macro

    Range("F4001").Select
    ActiveCell.FormulaR1C1 = "=RC[1]+RC[2]"
    Range("F4001").Select
    Selection.AutoFill Destination:=Range("F4001:F6000")
    Range("F4001:F6000").Select
    
' PourcentageEchu Macro

    Range("M4001").Select
    ActiveCell.FormulaR1C1 = "=(RC[-5]/RC[-7])*100"
    Range("M4001").Select
    Selection.AutoFill Destination:=Range("M4001:M6000")
    Range("M4001:M6000").Select

    
''''''''''''''''''
'''Optimisation'''
''''''''''''''''''

    Application.ScreenUpdating = True
    MsgBox "Durée : " & (Timer - timerdebut) & " sec."
    
End Sub