Private Sub Worksheet_Change(ByVal Target As Range)
Range("a5:ab300").Select
Selection.Copy
Workbooks.Open ("C:\Documents and Settings\c_durandma\Bureau\Création Modèle fac\Modèle facture.xls")
Unload Userform1
Unload workbook_save
Sheets("Customer list new").Select
Unload Customers_List
Range("a5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A5").Select
ActiveWorkbook.Close
End Sub