Sub HAWBIRAN()
'
' HAWBIRAN Macro
'
Range("A4:D4").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A5:D5").AutoFill Destination:=Range("A4:D5"), Type:=xlFillDefault
Range("A2").FormulaR1C1 = "=R[2]C[3]"
Range("A2").Copy
Sheets("SAISIE ENTREE").Range("D21").PasteSpecial Paste:=xlPasteValues
Sheets("SAISIE ENTREE").Range("D21").PasteSpecial Paste:=xlPasteFormats
End Sub