Bonjour,
1. Une petite présentation ICI serait la bienvenue
Si vous ne l'avez pas encore fait, je vous invite à lire :
- La charte du forum
- Quelques fonctionnalités du forum à connaître
Regardez aussi les petites icônes mises à votre disposition dans la barre de menu qui vous permettent
- de poster un code (</>) en le collant votre code dans la fenêtre
- de clôturer un fil lorsque vous avez terminé (V)
A ce sujet vous avez 1 fil ouvert avec une solution proposée à laquelle vous n'avez pas répondu --> https://forum.excel-pratique.com/s/goto/1111977
2. Mettez votre profil à jour en renseignant votre version Excel (2016, 2019, excel MAC 2011,....). Là "Français" ne veut rien dire et n'aide pas celui qui doit vous répondre
Cordialement
Edit : votre code comme ceci
Sub Macro1()
With Workbooks("MET003_-_Suivi_Activite.xlsx")
.Range("P9:P11").Copy Workbooks("DSC_SLA_Synthese04.xlsm").Range("XN16")
.Range("P14").Copy Workbooks("DSC_SLA_Synthese04.xlsm").Range("XN20")
.Range("P13").Copy Workbooks("DSC_SLA_Synthese04.xlsm").Range("XN21")
.Range("P12").Copy Workbooks("DSC_SLA_Synthese04.xlsm").Range("XN22")
.Range("P16:P20").Copy Workbooks("DSC_SLA_Synthese04.xlsm").Range("XN46")
End With
End Sub
Si ok -->
Cordialement