Sub Macro1()
Dim dest As Range 'déclare la variable dest (cellule de DESTination)
With Sheets("Feuil2") 'prend en compte l'onglet "Feuil2"
'définit la cellule de destination dest (A1, si A1 est vide, sinon la première cellule vide de la colonne A)
Set dest = IIf(.Cells(1, 1).Value = "", .Cells(1, 1), .Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0))
End With 'fin de la prise en compte de l'onglet "Feuil2"
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
.Range("H5").Copy dest 'copie H5 dans dest
.Range("I3").Copy dest.Offset(1, 1) 'copie I3 dans dest décalé d'une colonne vers la droite et d'une ligne vers le bas
End With 'fin de la prise en compte de l'onglet "Feuil1"
End Sub