Private Sub Workbook_Open()
If MsgBox("Voulez-vous créer une nouvelle facture ?", vbQuestion + vbYesNo, "NOUVELLE FACTURE..") = vbYes Then
With Sheets("Feuil1")
.Range("D2").Value = .Range("D2").Value + 1
.Range("A3:A9").ClearContents
.Range("C6:C12").ClearContents
.Range("C14:D19").ClearContents
End With
End If
End Sub