Mauvaise syntaxe Range

Bonjour,

Je possède un tableau de 5 colonnes définissant 5 groupes.

Lorsque je sélectionne un nom, je souhaite que le nom du groupe soit également copié dans mon tableau voisin.

Mais je dois faire une erreur dans la rédaction de ma fonction Range, par ce que je ne veux pas sélectionner la plage entre mes deux cellules mais uniquement ces 2 cellules.

Voici mon code :

    'copier/coller du prénom et nom
    Sheets("Groupes").Select
    Range(Cells(1, ActiveCell.Column), ActiveCell).Select
    Selection.Copy
    Range("G3").Select
    Do While ActiveCell.Value > ""
    ActiveCell.Offset(1, 0).Select
    Loop
    Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True

Quelqu'un voit-il ou je fais une erreur dans ma syntaxe ?

Merci d'avance,

Will

bonjour,

pour sélectionner 2 cellules disjointes

   Sheets("Groupes").Select
Union(Cells(1, ActiveCell.Column), ActiveCell).Select
    Selection.Copy

Super, je n'y avais pas pensé !

Merci de ton aide !