Re : vider les cellules
merci encore mais ca bug la avec ce code
Private Sub CommandButton5_Click()
Sheets("BON DE COMMANDE").Copy
Application.Dialogs(xlDialogSaveAs).Show Range("B11").Value & "*.xlsx"
Sheets("BON DE COMMANDE").Range("A15:B48","B10:B12").ClearContents
End Sub
l ordre n est...