Faire un test sur VBA

Bonjour,

Je developpe un programme sous VBA excel . et jai besoin de savoir comment faire pour traduire ca sous VBA:
je fais une selection de cellules d'une meme collone (ex colonne 3)
mon souci est le suivant:
comment traduire
si la cellule (ex cell(2,3)) est selectionnné, je copie la cellule cell(2,9) sinon je descent a la ligne d'aprés et je regarde si la cellulle cell(3,3) est selectionné si oui ben rebelote je copie la cellule cell(3,9) sinon je descent encore a la ligne d'apres.

ET AINSI DE SUITE JUSQU4A CE QUE JE PARCOURs TOUTE MA SELECTION.


VOILA CE que j'ai fais:

For p = 2 To Selection.Count + 1
If Cells(p, 2).Select Then
Cells(p, 9).Select
Selection.Copy
Else: p = p + 1
end if
Next p


le probleme c que je lui dis si je selectionne la cellule(cells(P,2)) et non pas si la cellule(cells(P,2) est selectionné) donc ma condition est toujours verifié meme si ma cellule n'est pas slectionné dans la selection. en gros si je saute une ligne dans la colonne 2, il me copie toutes les lignes de la colonne 9.
ALORS QUE JE VE QU4IL ME COPIE QUE LES LIGNES OU LES CELLULES SONT SELECTIONNes.

svp aidez moi.