Sub Copier()
DerliS = 2
For Each s In Array("Feuil1", "Feuil2")
PremLig = Sheets(s).Cells.Find("*", , , , xlByRows, xlNext).Row
DerLig = Sheets(s).Cells.Find("*", , , , xlByRows, xlPrevious).Row
PremCol = Sheets(s).Cells.Find("*", , , , xlByColumns, xlNext).Column
DerCol = Sheets(s).Cells.Find("*", , , , xlByColumns, xlPrevious).Column
Sheets(s).Range(Cells(PremLig, PremCol), Cells(DerLig, DerCol)).Copy Sheets("Feuil3").Range("A" & DerliS)
DerliS = Sheets("Feuil3").Range("A" & Rows.Count).End(xlUp).Row + 1
Next s
End Sub