XL 2013 Problème pour copier/coller une sélection aléatoire

[Halffy]

Bonsoir à tous,

J'ai passé mon après-midi à essayer de trouver la solution.... mais cela dépasse vraisemblablement mes faibles connaissances en VBA malheureusement 🙁
En effet je cherche à copier une "plage de cellules" de longueur aléatoire, et à transposer cela en VBA.
J'ai ainsi fait la moitié du chemin final (puisque j'arrive à coller sous la forme de l'image réalisée), avec ce code:

Sheets("Feuil1").Range("B2:O46").CopyPicture xlScreen, xlBitmap
Sheets("Feuil1").Paste Destination:=Range("Q2")

.... mais il me manque le plus important: Comment copier une "plage de cellules" de longueur aléatoire, et l'intégrer à ce code?
Si vous aviez un peu de temps à me consacrer s'il vous plait.... avec tous mes remerciements par avance.
Ci-joint le fichier où vous trouverez toutes les explications.

 

[Halffy]

PS:

Je regarde, ça pourrait être intéressant.
Résultat: Non, ça ne marche pas.

Correction.
Le code fonctionne. Il ne plante pas.
Deux plages distinctes sont copiés en image.

Effectivement, mais lorsque je disais que cela ne fonctionnait pas, je voulais simplement dire que cela ne répondait pas réellement et complètement à ma requête 🙄
C'est plutôt quelque chose comme cela que je cherchais à obtenir:

Sur ce, Merci beaucoup de ton dévouement, et Bonne nuit 😉

 

[Staple1600]

Re,
"C'est ce que fait mon code du message#4, Il suffisait d'adapter"
==> Trop complexe pour moi malheureusement 😕

Alors heureusement nous avons le K.I.S.S 😉

Dim F As Worksheet
Sub The_Kiss_Principle()
Set F = ActiveSheet
With Application
.ScreenUpdating = 0: Selection.CopyPicture 1, -4147: [Q2].Select: F.Paste: .CutCopyMode = 0: [Q2].Select
End With
End Sub

Si besoin
Pour l'esprit curieux...ou pas 😉