Option Explicit
Sub Macro12()
'en utilisant un Array Tb, plus la peine de passer par la 2ème de la feuille 'prod'
Dim dl As Long, Tb(6)
Application.ScreenUpdating = False
dl = Sheets("Juin").Cells(Rows.Count, 1).End(xlUp).Row + 1
With Sheets("Prod")
Tb(0) = .Range("D8").Value
Tb(1) = .Range("D11").Value
Tb(2) = .Range("F11").Value
Tb(3) = .Range("D14").Value
Tb(4) = .Range("F14").Value
Tb(5) = .Range("D17").Value
Tb(6) = .Range("F17").Value
Sheets("Juin").Range("A" & dl).Resize(1, UBound(Tb) + 1).Value = Tb
.Range("D8:F8,D11,D14,D17,F11,F14,F17").ClearContents
End With
Application.ScreenUpdating = False
End Sub