Bonjour
Essaie ce code :
Sub CopierCesValeurs()
Range("A5:BB19").Copy
Workbooks("EXEMPLE 2.xlsx").Sheets("Feuil1").Range("A5").PasteSpecial xlPasteValues
End Sub
Mais attention : si les cellules de destination sont formatées avec une police de caractères rouge, les indications reportées seront rouges.
Bye !