Sub Nouvelle_commande()
Dim DerL&, i&
WsC.Range("C8") = Range("I13")
DerL = Range("C" & Rows.Count).End(xlUp).Row
For i = 13 To DerL
WsC.Cells(i, 1) = Cells(i, 3)
WsC.Cells(i, 2) = Cells(i, 4)
WsC.Cells(i, 8) = Cells(i, 5)
WsC.Cells(i, 5) = Cells(i, 6)
WsC.Cells(i, 9) = Cells(i, 7)
Next i
Sheets("Commande 1").Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Test.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
WsC.Range("A13:I18").ClearContents
WsC.Range("C8").ClearContents
End Sub