Selection d'une plage de cellules discontinues selon une variable pour graphique

Bonjour à tous,

J'en appelle à votre aide pour réaliser une sélection de plage avec des cellules discontinues par VBA.

Je joint mon fichier test :
Dans la colonne B,si des valeurs sont égale à la variable écrite dans le cellule E2,alors elles sont sélectionnées,puis je veux ensuite en faire une plage sous la forme (B*:B* ,B*:B*)

Exemple (fichier joint) : Je renseigne "1" dans la case E2. Les valeurs égales à 1 se sélectionne dans la colonne B (j'y suis arrivé à le faire).
Je veux maintenant mettre ces cellules sous le forme d'une plage,qui s'appellera par exemple ici B5:B15,B17:B19 ).
Il y aura autant de plages que de groupes de valeurs égales à 1 (plus de 200 lignes...).

Ensuite,je voudrais transposer la plage de cellules en B vers A :
c'est à dire que les cellules en colonne A qui seront en face de "1" en colonne B,seraient sélectionnées.
Ce qui donneraient cela comme plage : (A5:A15,B17:B19 )
Cette plage discontinue ensuite utilisé pour faire un graphique (nouvelles séries...).

Voir le début de macro (bouton) dans mon fichier test.

Merci par avance de votre aide.
Bien cordialement.