Sub recopie()
Application.ScreenUpdating = False
Dim monTablo(16)
With Sheets("Commandes")
monTablo(0) = .[E7]
monTablo(1) = .[E38]
monTablo(3) = .[E9]
monTablo(4) = .[E41]
monTablo(5) = .[E44]
monTablo(6) = .[E47]
monTablo(7) = .[E50]
monTablo(8) = .[E11]
monTablo(9) = .[E3]
monTablo(16) = .[E53]
Set Derligne = Sheets("Achats").Range("$A$65536").End(xlUp).Offset(1, 0)
Derligne.Resize(1, 17) = monTablo
'Sheets("Commandes").Range("E7,E9,E11,E13,E16,E19,E22,E25,E28,E31").ClearContents 'à vérifier
End With
End Sub