Integrer une formule dans le bon nombre de champs

    Dim dl As Integer
    dl = Sheets("Example").Range("B65536").End(xlUp).Row

'Funded by
    Range("G4").Select
    ActiveCell.Formula = "=VLOOKUP(E4,$R$10:$S$20,2,FALSE)"
    Range("G4").Select
    Selection.AutoFill Destination:=Range("G4:G" & dl)
    
'Building Type
    Range("A4").Select
    ActiveCell.FormulaR1C1 = "Maison mere"
    Range("A4").Select
    Selection.AutoFill Destination:=Range("A4:A" & dl)
    
'Days
    Range("O4").Select
    ActiveCell.FormulaR1C1 = _
        "=INDEX(FREQUENCY(ROW(INDIRECT(R4C[2]&"":""&R4C[3])),RC[-2]:RC[-1]),2)"
    Range("O4").Select
    Selection.AutoFill Destination:=Range("O4:O" & dl)

Sub Civilian()
  Dim DLig As Long
  'To hide Excel loading
  On Error GoTo Restore
  With Application
    '.ScreenUpdating = False
    '.Calculation = xlCalculationManual
  End With


  'Clear content of the active sheet
  With Sheets("Example")
    '.Activate
    DLig = .Range("B" & Rows.Count).End(xlUp).Row
    .Range("A4:O" & DLig).Clear
  End With


  ' With sheet Raw Data
  With Sheets("Raw Data")
    .Range("RD_RD").AutoFilter Field:=2, Criteria1:="=CIV", _
                               Operator:=xlOr, Criteria2:="=ICC"


    'Copy content from Raw Data to Active Sheet
    .Range("RD_NAME").Copy Destination:=Sheets("Example").Range("B4")
    .Range("RD_NATIONALITY").Copy Destination:=Sheets("Example").Range("E4")
    .Range("RD_CE").Copy Destination:=Sheets("Example").Range("F4")
    .Range("RD_ROOM").Copy Destination:=Sheets("Example").Range("L4")
    .Range("RD_Date_Arrived").Copy Destination:=Sheets("Example").Range("M4")
    .Range("RD_Date_Depart").Copy Destination:=Sheets("Example").Range("N4")


    'Clear filter from Raw Data Tab
    .ShowAllData
  End With


  With Sheets("Example")
    DLig = .Range("B" & Rows.Count).End(xlUp).Row
    'Funded by
    With .Range("G4")
      .FormulaLocal = "=RECHERCHEV(E4;$R$10:$S$20;2;FAUX)"
      .AutoFill Destination:=Range("G4:G" & DLig)
    End With
    'Building Type
    .Range("A4:A" & DLig).Value = "Maison mere"
    'Days
    With .Range("O4")
      .FormulaLocal = "=INDEX(FREQUENCE(LIGNE(INDIRECT(Q$4&"":""&R$4));M4:N4);2)"
      .AutoFill Destination:=Range("O4:O" & DLig)
    End With
    'Layout
    .Rows(8).RowHeight = 12.75
    .Columns(1).ColumnWidth = 15
    .Columns(2).ColumnWidth = 24
    .Columns(3).ColumnWidth = 11.14
    .Columns(4).ColumnWidth = 7.43
    .Columns(5).ColumnWidth = 14
    .Columns(6).ColumnWidth = 7.43
    .Columns(7).ColumnWidth = 12
    .Columns(8).ColumnWidth = 7.29
    .Columns(9).ColumnWidth = 9.29
    .Columns(10).ColumnWidth = 15.14
    .Columns(11).ColumnWidth = 8.43
    .Columns(12).ColumnWidth = 9.14
    .Columns(13).ColumnWidth = 9.43
    .Columns(14).ColumnWidth = 9.43
    .Columns(15).ColumnWidth = 5.29


    With .Range("CIV_Result")
      With .Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
      End With
      With .Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
      End With
      With .Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
      End With
      With .Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
      End With
      With .Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
      End With
      With .Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
      End With
    End With
    .Range("Q4").Select


    'Set Print Area
    ActiveSheet.PageSetup.PrintArea = "CIV_Print"


    'To hide Excel loading
Restore:
    With Application
      .ScreenUpdating = False
      .Calculation = xlCalculationAutomatic
    End With
  End With
End Sub