Sub Macro5()
'
' Macro5 Macro
'
'
Sheets("1APG").Select
Range("B5:D5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("1APG").Select
Range("B5").Select
ActiveCell.FormulaR1C1 = "=Formulaire!R[4]C[1]"
Range("C5").Select
ActiveCell.FormulaR1C1 = "=Formulaire!R[4]C[5]"
Range("D5").Select
ActiveCell.FormulaR1C1 = "=Formulaire!R[10]C[5]"
Range("B5:D5").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
End Sub