Coller dans la première cellule vide d'une colonne

Option Explicit

' plage source
Const PlageACopier = "A16:E16"
' plage but
Const codeb = 1
Const lideb = 23
Const lifin = 36

Public Sub Kopier()
Dim li As Long, ok As Boolean
li = lideb
ok = False
For li = lideb To lifin
  If Cells(li, codeb).Value = "" Then
    ok = True
    Exit For
  End If
Next li
If ok Then Range(PlageACopier).Copy Cells(li, codeb)
End Sub

Option Explicit
'----------------------------
Sub Angel2()
Dim Ligvid As Byte

'Ligvid entre ligne23 et 36
Ligvid = Range("A23:A36").Find(what:="", after:=Range("A23")).Row
'copie valeur A16:E16
Cells(Ligvid, "A").Resize(1, 6) = Range("A16:F16").Value
End Sub