Bonjour Justine, Jacques, Michel, Temjeh
Bravo Michel ta proposition fonctionne avec un petit correctif pour copier à partir de la cellule active du classeur actif et coller dans la première cellule vide de la colonne A du classeur 'source.xls' :
Sub copier_coller()
Dim tablo As Range
Set tablo = Acticecell.Range('A1:E2')
Workbooks.Open Filename:='source.xls'
tablo.Copy Sheets(1).Cells(Range('C65536').End(xlUp).Row + 1, 1)
End Sub
Par contre pour répondre à Jacques, dans ta solution la copie dans le classeur et la feuille de destination se fait en D1 cela ne correspond pas à mon besoin
Merci à tous et plus particulièrement à Michel, grâce à vous je peut progresser dans ma petite application
A +