Sub insertion()
Dim a, n&
With Sheets("Formulaire")
a = Array(.[H5], .[H7], .[H9], .[H11], .[H13], .[H15], .[H17], .[H19])
End With
With Sheets("liste").ListObjects(1).Range
n = IIf(.Cells(2, 1) = "", 2, .Rows.Count + 1)
.Rows(n) = a
End With
End Sub