Coller si vide, sinon coller dessous

Sub Macro5()

Range("I6:K6").Select
Selection.Copy
Sheets("Feuil3").Select
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Feuil2").Select
Application.CutCopyMode = False
Range("A1").Select
End Sub

Sub Macro5BIS()
'Je suis sur la feuil2 je copie les cellules "I6:K6"
'Je vais sur la feuil3 je les colles sur la ligne "A2:C2"
Dim t
t = Sheets(2).Range("I6:K6").Value
Sheets(3).Cells(Rows.Count, 1).End(3)(2).Resize(, 3) = t
End Sub

Sub Macro5TER()
Sheets(3).Cells(Rows.Count, 1).End(3)(2).Resize(, 3).Value = Sheets(2).Range("I6:K6").Value
End Sub

Sub a()
Dim p As Range, t
t = Sheets(2).Range("I6:K6")
Set p = Sheets(3).Cells(Rows.Count, 1).End(3)
If Len(p) = 0 Then
p.Resize(, 3).Value = Sheets(2).Range("I6:K6").Value
Else
p.Value = p.Value + t(1, 1)
p.Offset(, 1) = p.Offset(, 1) + t(1, 2)
p.Offset(, 2) = p.Offset(, 2) + t(1, 3)
End If
End Sub

Sub b()
Dim p As Range, t: t = Sheets(2).Range("I6:K6")
Set p = Sheets(3).Cells(Rows.Count, 1).End(3): p.Value = p.Value + t(1, 1)
p.Offset(, 1) = p.Offset(, 1) + t(1, 2): p.Offset(, 2) = p.Offset(, 2) + t(1, 3)
End Sub