Sub sauvegarderbon()
'
' sauvegarderbon Macro
Set WDest = Sheets("HISTORIQUE DES BONS")
With WDest
.Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
End With
With Sheets("BON DE LIVRAISON")
.Range("D3").Copy Destination:=WDest.Range("A2")
.Range("F1").Copy Destination:=WDest.Range("B2")
.Range("B5").Copy Destination:=WDest.Range("C2")
.Range("B8").Copy Destination:=WDest.Range("D2")
.Range("D8").Copy
WDest.Range("E2").PasteSpecial Paste:=xlPasteValues
End With
BONsuivant
End Sub
Sub BONsuivant()
With Sheets("BON DE LIVRAISON")
.Range("D3") = .Range("D3") + 1
.Range("F1").ClearContents
.Range("B5").ClearContents
.Range("A8").ClearContents
.Range("B8").ClearContents
End With
End Sub