Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Sheets("Feuil1")
.Range("c2:c3").Copy .Range("d2")
.Range("c2:c3").ClearContents
End With
Application.DisplayAlerts = False
ActiveWorkbook.Save
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Sheets("Feuil1")
.Range("c2:c3").Copy Destination:=.Range("D2")
.Range("C2:C3").ClearContents
DoEvents
End With
End Sub