Selection multiple

Slt,
dans une variable je recupere les adresses de cellule repondant a un certain critere.
Ce que je voudrais c'est que grace a cette variable selectionner chaque groupe de cellule continu car pour l'instant je copie et colle ensuite chaque cellule une a une, ce qui me ralentit serieusement quand c'est un gros fichier plein de données.

Voici un petit exemple de ce que j'utilise pour l'instant:

Selection.SpecialCells(xlCellTypeConstants, 23).Select
For Each c In Selection
myvar = c.Address
c.Copy
Sheets(2).Select
Range(myvar).Select
ActiveSheet.Paste
Sheets(1).Select
Next c

et voici une ebauche de ce que j'aimerais faire:


myvar= Selection.SpecialCells(xlCellTypeConstants, 23).Address
for each 'plage continue' in myvar
myvar2='plage continue'.address
'plage continue'.Copy
Sheets(2).select
range(myvar2).select
activesheet.paste
sheet(1).select
next 'plage continue'

Merci