Sub Ajout()
Dim t, i%
t = Range("A14:S21")
For i = 1 To 6
t(i, 6) = ""
t(7, 4) = ""
Next i
Range("A14:S21").Copy
Range("A" & Rows.Count).End(xlUp)(4).PasteSpecial Paste:=xlPasteFormats
With Range("A" & Rows.Count).End(xlUp)(4).Resize(i, 19)
.Value = t
.Rows("1:3").RowHeight = 28
.Rows("4:7").RowHeight = 42
End With
End Sub