Sub test()
'On déclare la variable L (voir l'aide sur Long)
Dim L As Long
'L est égal au numéro de la ligne en dessous (+1)
'de la dernière ligne remplie Cells(Rows.Count, 1).End(xlUp)
'en colonne A (1)
L = Cells(Rows.Count, 1).End(xlUp).Row + 1
'Le range Cellule (Ligne L colonne A (1)) jusqu'à la cellule ( Ligne L, colonne H (8)
' est égal au range ("H17:H24") transposé
Range(Cells(L, 1), Cells(L, 8)) = Application.Transpose(Range("H17:H24"))
End Sub