Copier des cellules non voisines

Bonjour,

Je me résous à demander de l'aide.

Comment sélectionner 1 ou 2 ou 4 cellules de la colonne B de la Feuille1 qui contiendra 1 liste de 200 lignes environ ?

Celles-ci ne sont pas obligatoirement contigües. (Target ?? je ne sais pas)

Puis

Par le bouton, elles sont collées dans la feuille 2 dans la 1° colonne ( cette commande, j'ai réussi).

J'ai 2 autres projets de macro. Mais je me dis que chaque chose en son temps.

a+

Avec le fichier joint, ma demande est plus compréhensible.

Sub COPIERCOLLERVERS2()
Dim Text As Range
Feuil1.Range("B5").Copy Destination:=Feuil2.Range("A" & Range("A" & Rows.Count).End(xlUp).Row).Offset(1)
Application.CutCopyMode = False

 End Sub

bonjour,

par exemple

Sub COPIERCOLLERVERS2()
Dim Text As Range
Feuil1.Range("E3:E5,E10:E12,E15,E17,E19").Copy Destination:=Feuil2.Range("A" & Range("A" & Rows.Count).End(xlUp).Row).Offset(1)
Application.CutCopyMode = False

 End Sub

Merci de ta réponse.

Mais avec cette énumération de lignes à copier,

Feuil1.Range("E3:E5,E10:E12,E15,E17,E19").Copy Destination ......etc ......

ca ne me permet pas de choisir les lignes à copier dans la colonne E.

Elles sont choisis par ta macro.

Je souhaite pourvoir le faire en fonction des valeurs vues sur la feuille..

Y a bien un code avec INTERSECT avec une double négation ou le code Target mais que pouic !! malgré mes tentatives.

Bonjour

Selection.Copy Destination:=Feuil2.Range("A" & Feuil2.Range("A" & Rows.Count).End(xlUp).Row).Offset(1)

Amicalement

Nad

OUAIS

Selection.Copy

m'a permis de copier les cellules que je sélectionne !!

Merci Nad !

Comme ensuite, je souhaitais coller sur la Feuille 2 dans une colonne sur la 1° ligne vide trouvée... ca coinçait.

Mais j'ai réussi cela.. Bon Bon c'est une petite petite victoire.

   Sub COPIERCOLLERVERS2()
    Dim Text As Range
    Selection.Copy Destination:=Feuil2.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    Application.CutCopyMode = False

     End Sub

Et pour la suite de mon projet, devrai-je ouvrir un nouveau fil ? comme : Distribuer les cellules collées selon les semaines.