sélection multiple étendue

Bonjour,

J'ai un fichier avec des noms d'adhérents et plusieurs renseignements (je joins un extrait simplifié et anonymisé).

J'ai besoin de sélectionner plusieurs cellules séparées dans la colonne A puis pour chacune de ces cellules d'étendre la selection sur les 5 cellules adjacentes de la même ligne (en fait j'ai 8 ou 9 colonnes de renseignements sur la même ligne d'un enregistrement)

Tout cela pour les copier et les coller ensuite dans un autre fichier, ce que je sais faire en VBA sans pb..

J'ai essayé avec une boucle après avoir sélectionné mes cellules à la souris en faisant :

For Each cel In Selection
'j'étend la selection
ActiveCell.Range("A1:F1").Select
Selection.Copy
'j'active l'autre fichier ouvert
Windows("autre fichier.xlsx").Activate
'je cherche la dernière ligne vide
DerligneC1 = Sheets("autre fichier.xlsx").Range("C65536").End(xlUp).Offset(1, 0).Row
Range("A" & DerligneC1).Select
' je colle
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("mon fichier.xlsm").Activate
Application.CutCopyMode = False
Next

Problème : en faisant comme cela, je copie plusieurs fois la même ligne de cellules...

Il ya a un truc qui ne marche pas, mais lequel ?

Merci d'avance si vous pouvez m'aider..