Bonjour naubin1,
fait un test comme ca pour voir si ca fonctionne
Sub test()
ThisWorkbook.Worksheets("Affichageplacement").Range("A122:O235").CopyPicture xlScreen, xlBitmap
ThisWorkbook.Worksheets("exportpdf").Paste Destination:=Worksheets("exportpdf").Range("G9")
End Sub
à te relire...
Bonne journée