With Sheets("Base de données commande")
NbArticle = Cells(39, 1).End(xlUp).Row
Select Case NbArticle
Case 20: NbArticle = 0
Case 21: NbArticle = 1
Case Else: NbArticle -20
End Select
Sheets("Commande").Range("A21:I38").Copy Destination:=.Cells(65535, 2).End(xlUp).Offset(1, 0)
LaRowNoCommande = .Cells(65535, 1).End(xlUp).Offset(1, 0).Row
ValEUR = Sheets("Commande").Range("D15").Value
.Range(.Cells(LaRowNoCommande, 1), .Cells(LaRowNoCommande + NbArticle, 1)) = ValEUR
Sheets("Commande").Range("A21:I38").ClearContents
Sheets("Commande").Range("D15").ClearContents
End With