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
Sub HAWBIRAN()
With Feuil2
.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 With
End Sub
Sub HAWBIRAN()
'
' HAWBIRAN Macro
'
With Feuil2
.Range("A4:D4").Copy
.Range("A4:D4").Insert Shift:=xlDown
Sheets("SAISIE ENTREE").Range("D21").Value = .Range("D4").Value
End With
Application.CutCopyMode = False
End Sub