Private Sub CommandButton1_Click()
Dim rng As Range, t(4)
With Feuil4
Set rng = .Range("A6, B6, A12, C18, A23")
End With
For i = 1 To rng.Count
t(i - 1) = rng.Areas(i).Cells(1)
Next
With Feuil5
.Range("A4:F4").Copy
.Rows(4).Insert Shift:=xlDown
Application.CutCopyMode = False
.Range("A4:E4") = t
End With
rng.ClearContents
ActiveWorkbook.Save
End Sub