Sub test_A()
CopierPlage Range("B2:O46"), Range("Q2"), xlScreen, xlPicture
End Sub
Sub test_B()
CopierPlage Range("B2:O46"), Range("Z2"), xlScreen, xlBitmap
End Sub
Sub CopierPlage(Splg As Range, Dplg As Range, a As XlPictureAppearance, b As XlCopyPictureFormat)
Splg.CopyPicture Appearance:=a, Format:=b
Dplg.Select
ActiveSheet.Paste
End Sub