Cellules avec références relatives

Bonjour à tous ceux qui liront ceci,

Je dis dire que c'est la première fois que je m'inscris à un forum. Excusez-moi si je "patauge" !

Voilà mon petit problème. J'ai: la feuille F1 et la feuille F2

Je sais utiliser le code :

F1.select

Range("A14, F14, L14").copy

F2.range("a5000").end(xlup).offset(1,0).select

activesheet.paste

Cela marche bien, mais comment faire pour utiliser les références relatives par rapport à la cellule en colonne A ?

J'ai essayé avec Offset, mais alors c'est la ligne "A14 jusque L14 qui se sélectionne. Or il ne me faut que les 3 cellules?

C'est un problème de synthaxe, mais je ne trouve pas.

Jusqu'à présent, je répétais le code pour chaque cellule:

F1.select

Activecell.copy

f2.select

range("a5000").end(xlup).offset(1,0).select

activesheet.paste

f1.select

activecell.offset(0,5).copy

f2.select

activecell.offset(0,1).select

activesheet.paste

Puis idem avec la cellule de la colonne L etc.....

C'est assez long comme procédure car en fait, j'ai un tableau avec 25 colonnes et je prends parfois jusqu'à 10 cellules de colonnes différentes. Mais toujours au départ de la cellule active en colonne A

Je signale que je suis très loin d'être un expert en la matière. Juste que j'utilise Excel et VBA depuis pas mal d'années. Mais j'ai conscience que je ne maîtrise qu'une toute petite partie de cet outil.

Je remercie d'avance le pro qui me répondra.

Bonjour et bienvenu(e)

A vérifier

Sub Test()
Dim F1 As Worksheet, F2 As Worksheet

  Set F1 = Sheets("Feuil1")
  Set F2 = Sheets("Feuil2")
  F1.Range(ActiveCell.Address & "," & ActiveCell.Offset(0, 5).Address & "," & ActiveCell.Offset(0, 11).Address).Copy F2.Range("A5000").End(xlUp).Offset(1, 0)
End Sub

Bonjour,

Comme c'est la première fois, je ne sais pas si c'est ici qu'il faut envoyer les remerciements.

J'espère que banzai64 recevra tous mes MERCIS car j'ai testé et c'est ultra rapide !

Génial !

Merci.