Sub Transfert()
On Error Resume Next
Workbooks("Y.xlsx").Sheets("h").[A1:G20] = Workbooks("X.xlsx").Sheets("a").[A1:G20].Value 'à adapter
If Err Then MsgBox "Au moins un des fichiers n'est pas ouvert ou au moins une des feuilles n'existe pas !", 48
End Sub
Merci Job75Bon soir KTM,
Il faut préciser les extensions des 2 fichiers.
Pour transférer seulement les valeurs :
A+VB:Sub Transfert() On Error Resume Next Workbooks("Y.xlsx").Sheets("h").[A1:G20] = Workbooks("X.xlsx").Sheets("a").[A1:G20].Value 'à adapter If Err Then MsgBox "Au moins un des fichiers n'est pas ouvert ou au moins une des feuilles n'existe pas !", 48 End Sub