sélectionner une suite de cellule en colonne et utiliser leur valeur une a une

Bonjour,

Je cherche à connaitre le code correcte à inserer dans la macro :

je sélectionne une selection(plusieur cellule concecutive d'une colonne)
-déclarer la selection en string
Dim selection.click_ as string

-faire une boucle. pour chaque valeur de la selection
la copier dans une nouvelle feuille en cas ("g2") .

d'avance merci