Sub Transfert()
'
' Transfert Macro
'
' Touche de raccourci du clavier: Ctrl+t
'
    Range("D15").Select
    ActiveCell.FormulaR1C1 = "=FONDATIONS!R[-14]C[-3]"
    Range("D17").Select
    ActiveCell.FormulaR1C1 = "=FONDATIONS!R[-13]C[8]"
    Range("D19").Select
    ActiveCell.FormulaR1C1 = "="
    Range("D20").Select
    ActiveCell.FormulaR1C1 = "="
    Range("D21").Select
    ActiveCell.FormulaR1C1 = "="
    Range("D22").Select
    ActiveCell.FormulaR1C1 = "="
    Range("D23").Select
    ActiveCell.FormulaR1C1 = ""
    Range("D19:D22").Select
    Range("D22").Activate
    Selection.ClearContents
    Range("D15").Select
    Selection.Font.Bold = True
    Selection.Font.Underline = xlUnderlineStyleSingle
    Range("D17").Select
    Selection.Font.Underline = xlUnderlineStyleNone
    Selection.Font.Bold = False
    Range("E17").Select
    ActiveCell.FormulaR1C1 = "=FONDATIONS!R[-13]C[9]*0.01"
    Range("F17").Select
    ActiveCell.FormulaR1C1 = "=FONDATIONS!R[-13]C[9]*0.01"
    Range("G17").Select
    ActiveCell.FormulaR1C1 = "=FONDATIONS!R[-13]C[9]*0.01"
    Range("I17").Select
    ActiveCell.FormulaR1C1 = "=RC[-4]*RC[-3]*RC[-2]"
    Range("D19").Select
    ActiveCell.FormulaR1C1 = "=FONDATIONS!R[-14]C[8]"
    Range("E19").Select
    ActiveCell.FormulaR1C1 = "=FONDATIONS!R[-14]C[9]*0.01"
    Range("F19").Select
    ActiveCell.FormulaR1C1 = "=FONDATIONS!R[-14]C[9]*0.01"
    Range("G19").Select
    ActiveCell.FormulaR1C1 = "=FONDATIONS!R[-14]C[9]*0"
    Range("G19").Select
    ActiveCell.FormulaR1C1 = "=FONDATIONS!R[-14]C[9]*0.01"
    Range("I19").Select
    ActiveCell.FormulaR1C1 = "=RC[-4]*RC[-3]*RC[-2]"
    Range("D21").Select
    ActiveCell.FormulaR1C1 = "=FONDATIONS!R[-15]C[8]"
    Range("E21").Select
    ActiveCell.FormulaR1C1 = "=FONDATIONS!R[-15]C[9]*0.01"
    Range("F21").Select
    ActiveCell.FormulaR1C1 = "=FONDATIONS!R[-15]C[9]*0.01"
    Range("G21").Select
    ActiveCell.FormulaR1C1 = "=FONDATIONS!R[-15]C[9]*0.01"
    Range("I21").Select
    ActiveCell.FormulaR1C1 = "=RC[-4]*RC[-3]*RC[-2]"
    Range("D19").Select
    Selection.Font.Bold = True
    Selection.Font.Bold = False
    Selection.Font.Underline = xlUnderlineStyleNone
    Range("R28").Select
End Sub