Range("A21:I38").Select
Selection.Copy
Sheets("Base de données commande").Select
Cells(65535, 2).End(xlUp)(2).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Commande").Select
Range("D15").Select
Selection.Copy
Sheets("Base de données commande").Select
Cells(65535, 1).End(xlUp)(2).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Commande").Select
Range("A21:I38").Select
Selection.ClearContents
Range("D15").Select
Selection.ClearContents
End Sub