Sub Macro1()
Dim DEST As Range
Set DEST = IIf(Sheets("Feuil2").Range("A1").Value = "", Sheets("Feuil2").Range("A1"), Sheets("Feuil2").Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0))
Sheets("Feuil1").Range("A7:O15").Copy DEST
End Sub
Il existe des dictionnaires en ligne. Tu devrais regarder le mot merci que tu ne sembles pas connaître...
Sinon, il y a un Select en trop dans ton code...
Sub Macro1()
If Sheets("Feuil2").Range("A1") = "" Then
Sheets("Feuil1").Range("A7:O15").Copy Sheets("Feuil2").Range("A1")
Else
Sheets("Feuil1").Range("A7:O15").Copy Sheets("Feuil2").Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0)
End If
End Sub