Private Sub Workbook_Open()
If ActiveWorkbook.Path = '' Then
[NumeroFacture] = [NumeroFacture] + 1
Range('b15:b20').ClearContents
Range('b26:b57').ClearContents
Range('c26:c57').ClearContents
Range('d26:d57').ClearContents
Range('e26:e57').ClearContents
Range('h63').ClearContents
Range('h64').ClearContents
ActiveWorkbook.Saved = True
ActiveWorkbook.SaveAs ('Facturation.xlt')
End If
End Sub